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SYNOPSIS 


This project work has been done Tor the 
implcraGntation of IITPL, a language suibablo for system 
implementation, on IBM 704-4 « This compiler is an out- 
core typo comprising of tv/o passes. Present work 
elaborates the v^orking of Pass I (of the compiler), 
\/hiah consists of bhreo parts: Lexical Analyser , Syntax 
Analyser and Pass I Coding of IITPL Source Statements . 

Pass I output, either in coding form (i^o. HAP 
coding) I or in string form (for CjIDL and GOTO etg,) 

IS transferx'ed to PASS II of the compiler for the final 
coding of the IITPL source statement# Necessary 
information in the symbol table, 10 ALL table, GOTO 
table are also transferred to Pass II to help in bho 
final coding. 

The programmo is v^rit Lon in PCATRAN IT with 
Lexical Analyser in I^IAP, the assembly larguagc of 
IBM 7044* 



IITTaODUCTION 

The purpose of this project ’’Implementation of 
IITPL on IBM 7044” is to select and implomenb a language 
suitable for sys bem implementation. 

This project v/ork has been earned out jointly 
by bhe author and Mr, Ginha, Present thesis deals 

\;ibh the first part oC tho projocr. To understand the 
complete picture, one is suggested to refer the thesis 
prison bod by Mr, Pi,iC, Sinha, 

For the selection of language for system implemen- 
tation, the first point of consideration is the level of 
the language. Here the decision wcnl in favour of high 
level language, since it has the following advantages; 

(1) Machine Independence ; The manpov^or required to 
implement the system software for a third generation 
machine is any where from 10 bo 50 man years and is a 
costly affair to start from scratch every time a now 
machine is designed* Further, users of a paiHicular 
maohinc for some time will have developed spooial soft- 
ware and may nob like to reprogramme (or even have the 
necosseiry resources) v/hen old machine is being replaced 
by a new machine, Henoe transferring oven sysrem soft- 
ware from one machine to other is mandatory from aconomio 
considerations. Software written in a high level language 
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can be machine independent in the sense thvat it requires 
small amount of editing and "chc work on software for the 
nev/ machine need nob starb from scratch, 

(2) Ease of Updating ; Modifications are easy in case 
of higher level language . 

(3) So lf-documenbating; The programmes v/ritten in a 
higher level language are easy to un dors land and state the 
purpose of the programme briefly and lucidly. 

(4) Ease of Debug. g np,: Higher level language malces 
ohe programme easy for dcougging. 

(5) Facilib^be Thixiking : This is due to the fact that 
higher level 3 an£;uagG is procedure oricntod i.e. one can 
worry ©^^what to achieve rather than how the machine 
achieves. When one uses a low level language there is the 
additional step of synthesizing a logical task in terms of 
machine operations. Hence one cannot expect bo recogniso 
and correct easily logical errors by working with the code 
in low level language. The programming language used should 
bo goal oriented (in human sense). As to hov/ a machine 
achieves a logical task should be given minor importance# 

To get the last bit, litorally speaking, by programming in 
low level language nay cnradl heavy loss of programmer's 
tune and can turn out to be a sure v/cy of inviting hidden 
disaster . 

All bhe benefits one gets by usixig a high level 
language should be of some price - inefficient use of 



storage and extended execution time . Bub still blio overall 
saving IS considcrablo . 

Among higher level languages now a days, POHlTniB lY, 
with SLIP IS quite acceptahLe as an implementation larguago. 
But PL/1 (Programming Language/One ) is coming up as general 
purpose higher level language. Besides, almost all bhe 
features available in PORTRAB lY, PL/1 has many other 
features also. Po\/ distinct features are onunoratod 
below: 

(1) Storage allocation: for several sub- 

programmes can be overleipped. 

(2) Yersarile control commands: Introducing of 
fairly versatile IP and DO statements increases under- 
standibilxty and reduces coding. 

( 3 ) Character handling: It has ability for string 
manipulat ion , 

Since a language UvSeful for system implementation, 
is to be selected, there is no nee os si ty to inplemcnb fulH 
fledged PL/1 . Hence n subset of PL/1 crai ed as IITPL is 
chosen which has most of the distinct features suitable 
for system implementation. 

The programme has been v/ritten in RORTRAR lY with 
MAP subroutines, The oompilation is done in two passes. 

In this thesis description up to Pass I coding of the 
compiler is given. 
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IITPL 

IITPIi IS a subset of PL/1 (Prograioming Language) 
and consists of many useful facilities as in standard PL/1 . 

The basic elements nccossary to construct the 
IITPL source statements aro constants, Identifiers and 
Tunc cion references, all of v/hich, cjccept labels and 
koyv/ords, represent numerical quantities. 

All these elements mentioned above, except constants, 
are represented by character strings ♦ 


THE Q HARAOTBR gET ? 

Poliowing characters 
Letters s 
Digits : 
Special characters J 
Plus 

AstcrxgX 

Slash 

Equal Sign 
Quote 

Compound Characters? 

Semicolon 


ctro valid: 

A to Z 

0 to 9 

+ Ilinurj 

Left ParenbhoMs ( 

/ Right Parenthesno ) 

= Comma , 

» Dot 

, ♦ Exponentiation * 


Colon 


• ♦ 
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HcIj L' ional Operators t 

.EQ, .MS. .GT. .GE. , .LE . 

.KG. .NIj. .cat. 

Iiogical Operators? 

.AMD. .OR. ,MOT , 

Ob’icr characters arc nob considorccl co bG vilid ones by 
fcao compiler . 

Iclo ntiTier ; An idcntiliGr is a single alphabetic 
cb^ax’acber or a string ol alphameric charactex’s, not 
contained in a comiiicnt or constant, and preceded and 
followed by a blanh or s one other delimeter^ chc initieil 
cnaracter of the string must be alpliabe oio . Tno length 
must not exceed six charo^crers . 

Examples: 

D56789 

A 

A1 2B 

A-ll these arc valid identifiers. 

KeyvT ord: A keyword is an nchnitifior that, ;/]icn ased in 

proper context, has a specific meaning bo the coiapil^m’* 
All the keywords aro reserved, 

label ; labels are used to namo stibemnnts in ?l/1 . 
labels have the general form 
name . , Stmt 

where name is the label . 
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Cons 1: ants : Two types oT cons can bs aro provided for 
ill IITPL. 

(i) Integer Constant; It is a string of one to eleven 
digits and slnould be less taan or equal to 3435973836? .[ 2^^- ij 

Examples; 20345678001 

12 

(li) Binary Constant: A string of ”0" and ”1”, the 
longLh of the string shouJd not exceed 36. This type of 
constant is alv/ays rep res Cxi bod vvibhin quote signs 
irmiiodiately followed by bhe letter B. 

Example: M 01 01 01 01 01 11000'B 

Arr ay name : An array name represents a sequence of 
enb3.tiGS. array clcrnonb is denoted by the array name 

followed by a subscript ] ist enclosed in parantneseo. 

Array name itself is anj?- valid idcntif lor . 

Array namo can have multiple subsci'^ipts bul the number 
of subscripts should not exceed turee . 

Sub script ; The subscripts oC a subscripted (array) name 
nood nob be constants. Any expression that yields a valid 
arithmetic value can be used. If bhe evaluated value is 
nob an integcTj fractional portion is truncated . Truncation 
IS automatically done in IITPL since it purely works in 
li-icegcr mode or binary raode, 

jj.kpye _ 3gA_Qn « An expression is a representation of a value. 

A single constant or a variable is an expression. 
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Coiiibiiiata ons of constant g Jiid/or variables, along with 
operators and/or parentheses, are expressions. An 
expression thab contains operators is a a operational 
expression. The constants and variables ol an operational 
expression are called operands. 

Examples: A-i-B 

15 

EXPRES 

Pun e ti on Referonce Oporcind s; A function reicrence 
consists of a name and a parenthesized lis^ of one or more 
variables, cons ban us, or ouacr expressions. Ohe namo is 
the name of a block of codirig written to perform specific 
computations upon bhe daba rci^xuseiited by the iisc and to 
sabs'uituto the computed value in pi. ce of rhe function 
reference . 

St atements : An IITPL programme like PL/1 consists of 

a title (i.o. procedure name), the body of the progranno 
and the EKD statement. 

C onti nuation o-ird: Only one continuation card is allowed 
(i,e« maximum of 144 characters is allowed in a source 
statement) . 

Comment i It can be any v/here in bhe source statement started 
ty "/*** and ended by "*/" in the statement. 
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BLOCKS ; 

A Block xs dolimited soquenoe of sbatemonts that 
constituto a section of a programme. It localizes names , 
declared within the block and limits the allocation of 
Yoriable . 

Two kinds of blocks are provided for in IITPL: 

(i) PROCKDUEE BLOCKS 

(ii) Bmm BLOCKS 

The term "Block” x-’orers to i^itncr Icinl of block 
and the context indicacos Lho kind. 

Any block can concain one or moro blocks bub there 
can be no overlapping of blocks i.c. a block that contains 
another block must totally encompass that block. 

PBOCBDUBS BLOCK ; 

A procedure block, simply called a p'occeciurD , is 
a sequence of statomenbs headed by a PROGEBURB statement 
and ended by a corresponcii EIID statemonb. 

A procedure block bnar is ooxitainod within another 
block is called an H ibe rnal procedure . A procedure block 
bhat IS nob contained wibhin another block is called an 
exbornal procedure . 

Every execubablo IITPL prograiume mus'c start v/ibh 
PROCEDURE, which has the MABT option. Like PL/1 programme 



any IITPl programhie raay consist of one or more external 
proceduri^s, each of vdiicli can contain "local” and "global” 
idcnt if icrs . 

G-oncral for mac of declaring Procedure bloclcs 

Entry name .. PROCJDlUItB) (parameter , parameter 

data at'cributes , . 

The first external procedure block must be declared in bhc 
following way: 

Name . . PROCEDURTi! OPT TONS (MAIN) , , 

Procedure block with parameters: 

Entry namo . . PROCEDURE (paranstcr [,parrmctcr3 

functional Procedures; 

Entry namo «. PROCEDURE(parc.tmGtGr j^^paruac ccr » » • )] ) 

d ibct, at tribute , • 

Procedure blocks arc enbored by means of GaLL 
statement or by function references, cxccpb \,i\o HAIfT 
PROCEDURE from where tuc normal sequence of exccucToa 
s cax'ts . 

The functions of PROCEDURE sbatemont axe as follov/s: 
i) It heads a PROCEDURE block, 
ii) It defines the primary entry point of the procedure, 
ill) It specifies the parameters, if any, for the priraary 
entry point * 

iv) It specifies the attribute oC the value that is to 
be returned by the procedure in caso of built in 
f unc t ions . 
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Uxanple s 

A. .PxCOGii)DURE OPa'IOlTS (MAm) , . 

Stmbs 

B, .PAOCEBUHli;,, 

Stiabs 

Ei'ID B , . 

C , ,PBOGEBB?E (APXM ,aEG2) , . 

Stmts 

D , .PROGBBUEB (AHG^ , ARG4 )PrXSD; , 

Stnts 
ElBD A, . 

Ill thc> ibovc Qxomple A is an External ProcGdure as well 
as Ham Proceduro block. B, 0 , D arc internal procedures 
•ahe r e C is para xii o tr 3 c pro c c d ui c a nd D is lu no c 10 nal 
procedure . 

BECt I K bloc 1C ; 

General Pornat is 

[^Labol ♦ LEGIE, , 

BEGIN blocks arc ai\.ays internal^ they x^ust always 
bo conLainod within another block* Ilio BEGIN scatement 
heads axid identifies a BEGIN block. A BEGIN sbatemont is 
usod in conjunction with an END statoinmt to delimit a 
BEGIN block. 

IJnlikG a procedure block, a label is optional for 
a BEGIN block. Also unlike prooeduro block, begin blocks 
arc entered in the nor mol soquonce of execution. Control 
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can only tr<^nsXcr to the top oX 'begin block. 


B1 . . BEG-Ih j • 


Stmts 
ElJh B1 , , 


Ac b ivat ion and ‘X c r r gnat ion of BLOCKS 

Altliougn both blocks (Procedure ond Begin) 
r( GCi.iblc in many ways but they differ in the way they 
arc* aciivatcd end executed. 

A begin block, like single stabemenfc, is activated 
and nccutcd ixi the nor’in? vc^iui_iicc of bhe prograiame • 

Tor a prc^ceduro, hov/ever, normal sequoiioial 
progiVii-ie flo\f passes ai^cund t_ic procedure, from bhe 
stabenenb before the PPOCBDUIE sba borne nt bo the sbatemenb 
afb r the EJXD sbateracnc: c:)J 'Ghab procedure. 

Proceduro can be activated in bhe follo^/ing waysJ 
i) If it is referred af bc^r rhe keyword CALL in a CALL 
s cat emo nt . 

11 ) As a function reforenoo 

Termi nation of Procedure ; A procedure is terminated when 
one of bhe follovang occurs: 

i) Control reaches a KSTTJR'T statement within the 
procedure. The execut 3.011 of a RBTTIRH statoinent 



c'^uscs control co be rcturnod to the poiiit of invocn bion 
xj the irvolLin^ bloc 3 v. , 

ii) Control roaches the El'n) sfc. teiiient of the procedure. 
Ericctively th 3 s in eciuivnlont to bho execution of a 
rciUim st-'tenent. 

Ill) The cxocubion of a GOTO etaberoent within tho 
procedure (or ainj blue!: activated from v/ithin that 
pruccuure) br-noft^rs control to a point nob contoined 
\/ithin the procedure. 


Ty ji.il xi a Gi on o f_ Brain Bloc h ! 

A bc^Lii bluch lo bv^rmioa. tod v/hon any of ihe 
j'’0llO\/lxl3, OCGUTG! 

i ) C on b r ol r c a c he s blic EHD s b a t om ont for the block . 

When this occurs, next statenent after END is executed. 

ii) The execution of a GOTO sbotunent within the begin 
block (or any block act] voted from vvithixi that begin block) 
biiansfcrs control to a point not contained within the block, 

111) Control reaches a icturn statement tnat trai-isfcrs 
control out of the begin block and out of its containing 
procedure as well. 

Scope of the Id ont if lore ; 

Before the scope of the id ont me rs is to be 
discussed, let us lalk about tho Declarative st-atenents 
provided for in IITPL, 

The DEOPAliE Sea bement ; The DBGLAHE siaiement is the 


principal method for explicitly declaring attributes 



g£ nauGC, Fo inplioxt docloration is allov/ccl in IITPIj. 

G c nc ral GoxTia c : 

DPOL'iRS IdenLificr a'tbributG ... 

yldontiPicr atcributo ?• 

IIpJLS,’ sto^tLncxit; can only colic lajcd lately 

olbcr a PROO-^DURE staxcincnb or BEGIF statenent .or a 
PEOLAPE srateraent . In sonc cases, several idontxliers 
have bne same attribubcs. In such situations, the 
otbribubes can be fac cored to reduce the amounb of 
^/ri'cing required. The general form of a EEGLARE with 
fac bored atcribute is 

DECIAHE (name1 , narae2, atbribute 

Attribute specifies the characteristics of the identifier. 
Following attributes are ello’/^ed 
FIXED 
BIT (n) 

\/here n denotes the number of bibs bo be used by the 
corresponding identifier, n should not exceed 36. 

E3XBD IS an attribute which specifies fchab 
cor'cespond mg identifier is declared as integer variable 
in tne block, 

BIT IS an attribute \diich specifies that 
corresponding Identifier is declared as logical variable. 
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DECIAES A FIXED , . 

DECIAEE (D(5),C(6,10),D(10,2,3))EIXB)D 
DECLABE AB(10) FIXED 
DECIARE BOD BIT(2S) 

DECIAHB (B12(5,6), B35694) BIT(36),. 


To understand the scope of tne identifiers the 
tolloMxaQ example is considered. 

PI . .PPOCfDUPE OPTIOITS (KnVET) ^ , 

PECLAiS PIXEH) 

Stmts 

P2..PROajilDURE 

DECLARE (A,B) BIT (PO) 

Stmts 

P3. .procedure ,, 

DECLARE (A,D) BIT ( 30 ) 

DECLARE E BIT (?5) 

Stmbs 

D1 . .BEOID , . 

DECLARE (A,E(5,10)) PIXDD 
Stints 

P4 . .PROGEDURS , . 

DECLARE G(10) EIZED , , 

Stmts 
ElID P4 , . 

Stmts 


ElID P1 
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Ixi tx’c prevxuus exauple iden'ciliers have been declared 
1*1 di-u* crent blocks. The exieimal procedure P1 has bhe 
folloi/inp, id en till ex’s declared 

Pi 

P2 A,B 

In an^" sanfcenicnt in procedure P2 winch refers A or B, 

A end D will oe Gonsidex'’ed as logical variables (Bit 
Su_inj: variables of lenp;th 20) , If variables among 

and P are referred in P2j these will be treated as 
glot wl lacntnCifj’s and w:ll roLC'r- to bhe same variable 
as 1 ■> ?1 , 1 ,e . to say that j.f axy idenlifipr is not 
dcclntod in a Mock and is referi'ed in bhe blocks then 
tliLS \/ill bo brea Led as a global variable and refer to 
that variable (having the same name) whicn declared in 
next higher block. If the referred variable naine is nob 
declared in the nexb higher block y ib looks for the next 
higher block until outermost procedure has been checked- 
If tJic referx'^ed variable is not found any whore, compila- 
tion error is given. 

In the ]ast example, follov/ixig is the way in which 
bhe compiler v/ill intcrpreb the declaration of variables in 
d if f c rc n t bio cks . 

Pi 

name A B C 1) E P 

attribute EIXBD EIXBD FIXED FIXED FIXED FIXED 


name of block 
if global 
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P2 

NamG A B 0 I) S S' 

attribute BI!r(20) BIT(20) BOXSID PUJi)I) FIXED FIXED 

Fame of 

blocic If - - F1 P1 P1 P1 

global 

£1 

j-'lanio A D B B G F 

attribuce BIT(30) BIT(30) BIT(25) BITC20) FIXED FIXED 

block iiamo > - -- P2 P1 P1 

Si 

Blaine A F(5,10) D E B C 

attribute FCZED FIXED BI^(30) BIT(25) BJT(20) FIXED 

block name P3 P3 1^2 P1 

P4 

IMaine 0(I0) A F(5,10) DEB 

attribute FIXED FIXED FIXED BIf(30) BIT(25) B1T(20) 

block name •“ B1 B1 P3 P5 P2 

In the above e:ccmple blocks were nested and each block 
v/as having difiorcnt levels, e«g. El \/ith highest level (say 1), 
P2 with next; highest level (say 2) and so on, fae lcvc3 of 
lowest level block P4 will be 5 . 

Blocks Gctn have same levels also as shov/n in the 


following example; 



IT 


PR1 . .PKOCSDUKB OPTIO^'TS (TIAIP) 

DECLiiRB (A,B,C) BIT(36) 

DBCIARE D ■H’lXEP , . 

PECL.aks (E(5,6,7), J'(2,3)) PIX2I) 

Stmts 

PR2 . .PROCDPTWE , . 

deolake (a,c,p) fixed 5, 

Stmts 

BED PR2 , » 

Pi{3. aV.OOEDuRE 

Dji3LARjl 311(27) 

u 'Grubs 

FED PR3 y . 

Stmts 

FlID PR1 y t 

,In the above example PR2 and PR3 are of same level 
(i.e.2). It should be noted -chat if cither of the 
vax’iables A or C or D is needed in PR3, it will not 
refer to A,0 or D of bloeir PR2 since PR2 and PR3 of 
Scimo love] , Van? able of I'R2 cannot be used in PR3 and 
vice- versa since both are of same level. 

Oc her S to c e ments 2 

JAHj Staremont " The CA-LL sttremen'c invokes a procedure 
and causes control bo be ■cransfein'cct to a sprcified entry 
point of the procedure . 

General Format 5 

CAIiL Procedure name '(argumentl , argument ...)i , . 


18 


Synt ax Pules ; 

(x) TliG procedure name, represents the entry point 
Ox the procedure inyokcd , 

(ii) An orgui'icnt can be a variable, constanb or any 
valid arithmetic expression. 

Any procedure, /hebhei' external or internal, can 
al\;ays invoke an external procedure (except the containing 
ox be me 1 '"irof'edure) bub I'c cannob always invoke an internal 
p'^ijceduj o thob is concai zd in some other procedure, Those 
inbiOMal pioeec'urcs b-'-ib lix'’o ac the first level of nesting 
reLafci\v. CO a conuaini-ig prooedujre can alv/ays be invoked by 
biiab containing procccure, or by each ocher, 

Sxample .* 

P1 . .PhOCdJiBUhi} , . 

Stmts 

P2 . .PROGJIDUIIB , . 

Stmt P2-1 
Stmt P2-2 , , 

P3 . .PHOCl!)I)lTnB , . 

Stmt P3-I 
Stmt P3 . 

BHD P2 , . 

Stmts 

P4 . .PhOGBDUTiB , . 

Stmt P4-'1 y . 

BED P4 
BHD PI , , 


In this G^amplG P1 can invoke procedures P2 and P4 'but not 
P3 . It can be easily scon bhai P2 and P4 are those inbcrnal 
procedure v^hich are at the Iirst level of nesting relative 
uo the Gontw.iiiiiig proccdu’i’e P1 . 

Also P2 and P4 can ixivoke each other. P2 can invoke 
P3 also, Hov/ovor, P4 caikiot invoke P3 and vice-versa. Here 
lb differs Iron PIi/1 , In PL/1 P3 can invoke P4 vvhile in 
IITPL ifc IS not Vr~lid. 


P*Q. S tate nent ; 

f unction ; The PO stateiiont heads a PO-group and cun also 
be used CO specify rcpecit^ve exocu'cion of the statements 
\/ith3n the group. 


(reneral PoDmati: 

PO c .V , = Specification' , Sxjecificacion ... 

\diere c .v . denotes the couoi'ol variable and specification 


has the f orm 

Expression 1 




J 


- ( expr . 4 )J 


'TO expi ,2 BY expr. 3 
^BY expr . 3 - 0 expr . 2 
In simple way it can be said that the specif icutions may 
take one of the foil owing forms or combination of one or 
more of the following forms: 

(a) Gxpr.l, expr .2,,,., expr.n 


(b) expr.1 BY GXpr.3 ^0 expr .2 

(c) expr.1 TO expr. 2 BY expr .3 

(d) UHHiB (condition) 
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AiTy DO i^roup xu by an El'ffi sta boracnt « Actually 

uiie DC statcncxic, fclie SIID statement and ary statement in 
ucbrfcen oonorise a DO ^^roup . 

DO Dave tDo xollov/ixi^ cliaracceris ties : 

(i) Ihc eic^res&ions in thu specifications are evaluated 
only once, at bhc xix'c tPo DO scaocment is first encountei’ed . 
T'hjs b'tc expression cannot be cffecbivcly modified by 

su bcpcnts - ibhin biir e;roup. no\7cvcr blic corbrol variable 
cai be iiodifiGd. IJ suen modifications f^ive it a value 
outside the specified lane^e, the loop will not be repeated 
after bhrj current pass is completed. 

(ii) A GOTO statement wibliin bhe scope of a DO loop 
may trcsnsfcr control be a point outside tlic loop, thus 
bcrminatixi^ bhe loop pr<' '■ aiuroly . 

(ill) A GOTO s barer GxiD outside a DO group xiust nob 
arrnisfor to a poinb v;irnin uho loop. (A GOTO sbabenent 
may, however, transfer Jo a point within a DO group) . 

(iv) The value of the conbrol variable, axbcr coxitrol 
hois left a DO loop, oopends upon bhe eondi cions under which 
che loop was lofc, i.e. bo say 

If the loop IS berninatod normally, the conbrol 
variable has the first value which fails to ncet bhe 
conditions for execution of the loop. 

If fchc loop is terminabed prematurely, c.g, by 
a GOTO sbabemont ^/liicli transfers out of tho loop, the 
value of control variable is the value it had when the 
GOTO sbatoment was executed. 
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pr::AiiT. .rnocBDURE options (ijain) 

i)l3CL.\iu3 (A(lO)j T) rrXED ,, 

GET EDIT (A(10) DO I r=: 1 TO 10)(10 E6) , . 

I.U31 , .DO I = 1 TO 10 BY 1 , , 

IB (^.(I) 5) GOTO D/lE2 ,, 

DAB1 , . 

L B2 . .PUT EDIT (I) (P6) , . 

END PRJUVIIT j . 

It DO roup ends normally, I v/ill have a value 11 when 
xb comes out oP DO ;_;roup , Ocher\/i3e I vyiII have that 
vaiuo correspond xng bo Y<hich ~ 5 * If there are many 

eloivnoS in A which nave tiio value 5> first one '/ill he 
taken ^/hich cranofers conbrol ro L/Lb2 . 

END St it omen t : 

Euuotioni The END sbabemenb tcrminabes blocks and j^roups . 
Gcnoral format: END Label ,• 

General rules: 

i) If a label follov/s END, the starsmeni; berminates 
the unterroinated group or block headed by the nearest 
preceding DO, BEGIN or PHOCEDUPE staLement having that 
label. It also terminates any miterminated groups or 
blocks physically within bl ar ^roup or block, 

11 ) If a label does not follow END, the statement 
terminates that group oJ block neaded by the nearest 
preceding DO, BEGIN or PROOEDUPlE statement for which 
there is no correspondirjg END sbntement. 


I 
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1 J. 1 ) IC coribx'’ol rec 3lies an ErD sLa'cement for a 
pxoccdure ^ it xh treated as a RETLGl'f statement. 

E "ample s 

P1 . .PBOOEEURE , , 

orjiCs 

B1 . .BEaiP , . 

»3tmrs 

P1 . .PO 1 = 1 10 8 , , 

EIP , . 

Eo p: ^ , 

In the a ^ove oxjnple first EltD so terrene ends b're BO 
group since BO {-roup is the noarejo one, ’Vliile second 
EKD scat erne nt terminates PI as :11 as B1 since J31 is 
contained in P1 . 


IE and E LSE__SUt€. '- len t s 

The IE statement tests the Vc.lue of a specified 
expression and brans lers control according to the result 
of that tost. 

General formats IE element expression 

TIEH unit-*1 
ELSE unit --2 . 

Syntax Rules : 

i) Each unit is a single statement (except BO, EBB, 
PBOGEBURE, BEGBT, BIGLABE, E0RI1A.T). 
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xx) Che I? oCuuciaont xxoGir is not terminated hy a 
cxLUOoioii, hov/cYcx" eacli unit s^^ccified must be terminated 
by a semicolon. 

Ill) Unit should nob be a labelled stuxoment. 

Gcx^ora l P.ulos : 

i) The olement expression is evaluated and converted 
to a bib string. If SISE cause is specified then follov/ing 
aci^'ion 3S Uikens 

[f any ^it in s'cxing is 1 ib executes unit^l and 
the- nsic3''s cox^urol co the rdtatcinont following the IE 
s^cbciicno ■‘\n -JO unib-^S is cxe cubed and unit-1 is skipped 

3 -iu CO bcol passes to v>i-o icxc; st .tcmcn'C . 

Idxon EL(JE cause is nob sprcLfied^ following actions 
arc b.iken: 

If axy bit in erne convex'xcd bit string is 1 , Ui.iit-1 
IS executed and control passes then go the next statement, 

If all bits in ihc string aro zero, unit-1 is skipped and 
coiitrol passes oo the next execubablo statement . 

11 ) IE statement nay be nos cod i,e, either "unit” 

(uiiit-1 oi* Uxiit“2) or boxh, may itself be an IE statement, 

Exanp 3 .es i 

(1) IE condition 1 IKEE Sta 'r'^acat* 1 

ELSE IE condition 2 TI-^EE st tomcnt->2 

,f« »•» 

ELSE IE condition n TliEb statGment*-n 
ELSE statemont-m 
next statement , . 


To analyse the statemenus irentioncd in previous page, 
let us examine it from bob'Gom bo cop, step by steps 

i) Statement-ra will }3C executed if condition n is 
false. If it IS true s b.. bciaent-n will oe executed. 

ii) Condition n ./ill be evalua ced if condition 2 
IS false. If condition 2 is true, statcinent-2 v/ill be 
executed, i.e. to say fP -- ELSE construction always 
presents mutually exclusive al'cerna'civcs . 

Ill) Similarly couuibion 2 will be evaluated if 
condition 1 is false. 

Thus jt Oc'n be said that 

ELSE, if us ed , specifies an alternative pat h 
fo r the last preceding IT for v/hich an ELSE path Is not 
already specified . 

Example 2 : Another type of nesting of IE statemenb is 
as follows? 

condition- 1 llIEE 

QQ ndibiQn -2 THEN sta bGmonb'-2 
ELSE sbabernonb 2a 
ELSE statcmenb-la 
nexb stabemonb, . 



IE condibion-1 TPIEN sbabement-l 


7 * 


ELSE IE condition-n THEN s cateraent-n , . 


f * 


nex b st at ement 


In example 3 chere is no alternative path (ELSE statement) 
for the last IE. HowevcPj if condibion-n is true statement 
uill be executed and control v/ill then pass to the next 
sboLemenb. If condition~n is false it will skip the 
si leiaent-n and Iransfer control oo next statement* 


G OIO Statement s 

Fu nction s The GOTO sbatenent causes co/icrol to be rrans- 
forrod to the statement identified by the specified label. 
General format s 




GO TO] 


GOTO J 


Label constant j . 
Siemens Iwbcl Vctriable 



General rules: 

i) If an "elomont label variaDlo” is specified, 
bransfer of control depends upon the value of "elonenb 
label variable" at the time of execution of GO TO stateuent 
Since value may change, honco it is not essential that it 
'Will always transfer to tne same label, 

II ) A GOTO statement cannot oass control to an 
inactive block. 

III) A GOTO sbatomont cannot transfer to a point within 
a LO group from outside tlio group, 

iv) If a GOTO statement transfers control from within 
a block to a point not contained within that block the 
block IS terminated, Also, if the transfer point is 
-contained in a block tnat did not directly activate the 
block being terminated, all intervening blocks in the 
activation sequence are also terminated. 


v) When a G-OTO sbatcnicnc transfers control out of a 
pz'oceduro that has been involrcd as a function, the evaluation 
of Ihc ezprcssioii that concained bhc conxupondms function 
reference is discontinued. 

c s 

P1 , .pnoc'EBijPf; loi'TS (riiij) 

11 . .StlQt , . 

• • « • « o 

12 . .Stmt , , 

♦ • • « » * 

GOTO 1,2 , . (6) 

CAII, P3 , , 

* « * • • « 

CAH, P2 , , 

P2 . .PK0CEDUR13 , . 

• • * k * * 

Chll P5 , . 

11 4 .Stmt , . 

B1 . .BEGBT , . 

Stmts 

B2 . .BEQItF , 4 
11 . .Stmt , . 

S brats 

B3 . .BEaiN , . 

9 • • 9 M 9 


GOTO 11 , . 

(1) 

• * . ♦ » • 

GOTO 1,2 , . 

(2) 

* • « * • • 

GOTO 1,3 , . 

(3) 
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13 . .EJ'ID B3 , . 

f • f f • # 

3m B2 , . 

12 . .Stmt , . 

» 9 % • « » 

iin) Bi , . 

■Ero P2 , . 

P3 . .PiiOCElTJIffi , , 

« • • 4 t 4 

GOTO II , . (O 

4 14 t * « 

GOTO 12 , . (5) 

• • r * 4 * 

EiiB P1 ^ . 

In the above example Soiromont G-Ol'O 11, numbo^iu (1) 
transfers the control to the label Ii1 rn bloch E2 aiid 
block B3 IS bermiiia Ged , sxncc rncz'c is no label 11 in 
block B3; B2 is Lhc imwcdiatc outer block. 

Statement GrOIO Ii2 , numbered (2) transfers the 
control bo label Ii2 in bo^in block B1 and blocks B? and 
B2 are t-rminated since 12 label Is pj.nsGnt neitliei' in 
B2 nor In B3. But sta tcinont GOTO 15, numbered (") and 
GOTO L2 numbered (6) do not termjaacc cuiy clock since 
labels are in the very b3 ock and oourrol transfers lo the 
corresponding label. 



I^ow s basements iiurabarcd (4) and (5) arc to be ^ivcn 
special attention's nice their meaning varies according bo 
bhe ac bivation of the blocli, 

CasG I: If P3 has been G^llcd from procedure P1 (i,c. 

P2 IS inactive) in tliav case - soaicmcntj G-OfO 11, 
numbered (4), v/ill -crciisfer control to label 11 in 
procedure block PI and P3 v/ill be terminated . Similarly 
statement, G-OIO 12, ruiibered (3) v/3ll transfer conbrol 
bo label L2 in block P1 ;; and P3 ^/il3 be tcriiinabed. 

CasG II; If P3 lias been called Irom proceaurc P2 (i»g. 
all procedures P1 , P2 and P3 aro acoive) statement, GrOTO 
111, nunbered (4), v/ill bransfer control to label LI, in 
pj:occdui''e P2 and P3 will be borminatGc) since P2 has called 
P3 Sind label LI is tiiGno in P2 * soatoment, GOTO 

L2, numbered (5), v/ill crensfer ooutrol to label L2 in 
procedure PI and boili P5 iid P2 v/ill be tci j inabed since 
L2 IS neither in P3 nor in P2 • 

HBTURN SlabomonL 

P une t ion ; 'The RETURIT staboment tcrminabes enccuiio.' of he 
procedure that contains the RLTUEN statement, IL may also 
return a value if it is written within a funccional 
procedure • 

General foriaat; 

Option 1 RETUR^T , , 

Option 2 RETURR (exprossioii) ,, 


General Rules: 

i) Only, the RSTGRF statement in option 1, can be 
used to terminate procedures, not aj'tvolied as function 
procedures. Control is returned go the point logically 
lollov/ing the ixivocation. 

II ) The RSTURT'T statement ixi opr ion 2 is used only to 
terminate a procedure invoked as a function procedure. 
Control IS returned to 'the po.int of invocation, and the 
vc^luc returned to the function rcicre.'oe is rile value of 
the oxx)rossion specified, 

III ) If control reaches an EuD staboiaent corresponding 
to oiie end of a procedure, this END scaicment is treated as 
a RjJTUHN statement (of the oj)tion 1 form) for tiie procoduro. 
There may be any number of RDTuRlT siaromcnt in a procedure. 

ExQi-iple ! 

A. . PPlOGCDUHS 

DECLARE (a,D) PITED 
CALL B (0,D) , . 

C = C + D + PUN (0) , . 

ElID A , , 

B. . PROCEDURE (Z,Y) 

DECLARE (X,Y) PUCED , . 

IP X 0 THEF GOTO DnBl , , 

X = X + 2 , . 

Y = XK-5f2 , . 


RETURN 
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LABI , .X = 5 5 . 

Y - 4 5 . 

EilB , • 

EUN, .PROCEDURE (X) RIXRD ,♦ 

DECLaRj) X riXCB , . 

Str'ts 

RBTURn (X -3 H- X/2 + 3) , . 

EITi , . 

I/O Sbabemonb ; Only EDIT cUrcCucd I/O s^a^ onion ts ax-e 
allo\;cd in ITTPIi. 

GEIV PUP Statement : 

Function; The GET siabenient lo a uTREAM tranjiussion 
su..cGHGnt that is used for assigment of data Iron an 
exocmal soui’oo bo one or inorc internal rocGiring fields 
(i.e, one or raoro variables) • 

The PUT stutenont is a ETRSAH bransiaisroiOxi stateiienb 
that IS used for assignment of data iron one or n-orc internal 
fields (i.G« one or more variables to an oxiiornal source). 

General Format: 

get/put Jop b ion list^ EDIT (daba 3 Lsb) (fori j it list) 
j(data llsb) (fomot list)] 

Following IS bhe forma b of 

i) "Option list": FILE (fi3e name) 

File names are TAPEO, TAPE1 , TAPE 2, TAPE 3 and TA.PE4 * 

If no opbion list is thorc, card reader is baken as the 
exbernal source in case of GET SLcibementg and priiber in 
case of PUT statement . 
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ii) ’’Data list”: elerieno jeleineiit 

(a) A datalist mst always be enclosed m 
parentheses . 

(l)) ^he olcnont con be one of the following: 

Ail eloinent, aris^, or a repetitive specification 
(siii-’ilar bo a rc 'obitivc specification of a DO 
gi-oup ) , 

Dxannio; ( A.,D(/} ,5 ) , (0 ( I,4)D0 1:^2 fO J BY K)) 

Unlike ?Ii/1 , o-il^- cO'^istanb and unsabscripb ed variables 
arc allo\/cd for DO .jpccij'^icatiOxis for I/O staGcments# 

Lii) "Ii'orinaL liso”; 


C iGem ] 


'’,iben 

) * 
n iten 


,ii item 

\ n( forma G list)^ 


^,n(formab list) 


(a) Bach item rcpiY senes a fornat item as 
described oclo.v. 

(b) Ihe lebcc-r n pl ^)i*csei' bs an iteration fcacbor 
vdiich IS unsi{;,:ied deciriul inieger cons b an b. A 
blank or Isfi. ^larcnGhosis iinst separaie the 
ibcrjtion fic^or Croi. bhe format itcn. 

(c) There arc three b pes of f orna b items j 
(I) Data forma b luen 

(It) Control fornat iieu 
( ITI )Remo bo f ornn b itcn . 
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Data Do la'c I c bLi s s 

Dixod point (D), characour sbring (A) 

-t'O], A[(..0J 

T e D, on unoignod duciiTrA intogcr constant 

acpr jonfcs cno nujibc- oD cxor ■'CTcrs in the /‘iclcl . 

Control roriic^c ibuiis; 

Dho control for lat ^tGJ^s t^io spacing format 
iLcii (X) and SKIP forna^ itcuj 
X{V) 

SKIP (V/) 

Hoxv \! Das tho sane noanij g os above , 

Reno bo format itons R(l) 

Itio Ic Gtex’ 1 apo^Ltios jDo label of a foriiat 
s i.< benonby 3 ocaicd olsc' , UiiliKo PL/1 ^ 1 cannot be 
a label variable. 

P QRivp iA st ate nonb i x 

Iho PORI/M staccMoni srooifita a foruc.b list bliat 
can be unod by edit dire c be u ux’^ansnis Jion scjIcjicugs bo 
cox-^rol Lho XoniaL of bLo de aa being iraiien li ocd . 

G-Oiioral fornab: Label: POBrlVl (b ornao list) 

Syxita^c rules : 

i) Unlike PL/1, mul biplo labels arc not alloved , but 
**labcl'* must be specified for a PORMAP stneemont, 

li) The fornab list here sane as discussed in 
I/O sbatonont bub renoto fo^ik-t itCiV must not be in the 
fornab list of a form, at str .nenb. 


OP EN Statemenc s 

Pune bion ; The OPEN :ciicnt opens the file of given file 
nanc. l/O functioxi wibli the file can only be done if the 
file IS open already. If file is already open, it sets 
u lie p 0 ini G r a g j in at Ui o beg inning point. 

G-enoral fornatj OPEN 'fUE (file nano) | ,PIIjE (file nane^. . 
whore ’’file name” is one of the follo\/ing! 

i) T/VPEO ii) TAPS1 111 ) TAPE2 iv) TAPD3 v)T;iPB4 
’’flic naaie” laust be cnclosGcl by the paruntheses , 

OIjOSB Stateme nt; 

Punction ^ The CIOIdE sta: 3 mGnt closes the file of given 
flic naiao. I/O functions cannot bo lone v/ibh a closed file. 

Groneral forpiaiiS CLOSE UIjE(filQ name) |^PIIiS( file name)^ 
whore ’’file name” has the saint, meaning as discussed in 
OPEN statement. 

Unlilcc PL/1 f no option is allowed v/ith OPEN/CLOSE 


statements , 
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FLOW 01 ? COF! IKOL i r IITPL OOL-TPILEK 
(Basic structure oC the coap:lGr) 


IITPL Conpiler loaded 


GIVE 

JJJ.OR 

IJBSS..GE 


(2 

n' 


Ini biolize 

for 

nc\/ job 

1 


non PL / 1 nob JeXIT ! 
EREOR 


Error 


LEZre.-L aEALYSER*— 
T ahe n ext s tmt and 
produce rho string 
ouopub 


Check for 
Error 


Load the 

I asS'^mbler 


GIVE 
syntax 
error 
1-10 s sage 


Hr 


I 3 

SYITTil MALYSm - 
Check bne Syatccc of the 
stmb^ Initioljzc for nov/ 
External Procodure , Ell] 
Symbol Table Entry . 


Error indi- 
V cat or on 

(1) 




Possible Coding 
of the sbmt or string 
ou'cput for pj-SS II 


^Y) 


Error 



Execution 
of the 
programe 


End of 
Exber’nal procedure 


Intermediate 

Processor 


PaSS II li. 
P'^oduce bhe YAP 
Coding of the 
TITPL source 


i 

(1) 
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BASIC S ^rLUC gURE O F TRE CpHrajTOB AJB SYIVBOI lABLE L 

Present chapter .^\'"'s a hrief description of ihe 
diircrcxit blochs of the IP- PL cojiipilcr iraplenienbccl at 
llil on 1BM7044 . A detailed description of the symbol 
tijjle cn cries for various types of name is also presented 
here . 


Basic s tructur e of cne Co i-ipilcr; (Lexical, Syntax and 
Coding) J Adjoiiiin^ figure s ovfs "clie flov/ of con'crol 
in uaIc IITPL compiler imploraen ced at IIP or 13147044 • Each 
block has been given a number put ixi the corner of the 
rec bangle • 

(1) first block sois cue initial values of ccrtc.in 
valuables (indicators) MhencyzT new job starts. 

(2) Second block namrd as Lexical ‘'"alysor t. kra one 
IIPPL statement at a ti^^ie, cnecks for any inv'lid c'T'ivctcr 
and other possible errors* If no eri'or is ■^o^n'id, it produces 
the stD^'ing output to be used by the vS'juitQx Analyser* lu 
also squeezes out the redUiidani bla^iks and comi'icnt portion 

of ojiQ source statement, A dctf-iled description is given 
in the next chapter. 

(3) Syntax Analysers u.s the nane suggests, it checks 
the syntax of the source statement (now in string form 
produced by the Lexical Analyser). It first finds out the 


typo of the sfcatoraono and cransfers eonorol to die 
corresponding sccGion of ilie programme which cheeks for 
uhe VLilidity of tne scateraent, Initirdizations &re done 
for each programme segment (i»o, for each drternal 
Procedure Block), Besides fchixS some initializations for 
each subprogramme or block (Procedure or BSG-Ik Block) are 
also done- Symbol bable entries are filled for various 
typos of name o »g, procedure namej variable name and 
label name. If tor the ..otemenr hein;^ Cound syntactioally 
corvocu, lb tranoicrs conccol go unc block number 4 (m 
t ne diagram) for possible o od in ^ or s t r ing output. Ex’’ ror 
messages arc given to syxitac 1 ■' call p incori’ccfc statement 
and error indicabor is set on. 

(4) Possible coding of die statemC' b 

ex' 

string output for Pass 2 

In this cecbionof t.-c programme, it is cncckcd 
if error indicator is on. If yes, it exists ct id control 
goes back for baking next Sbcurment, Ochcrv/ise possible 
codiiig IS done for 1110 new sboconi:.it. By possible coding, 
we mean, that only those source stocemrnts, wjiich do not 
ro quire any further information for coding, aT-'^o coded in 
Pass 1. Arithmetic asiignmonts , IP, BO etc. nre ex.amplcs 
fox’ this, Pew statements \riz , P'^OCE'OTPq and CALL caiiob ijc 
coded in Pass 1 , G-OTO sta tenent also cannot always be codod 
in Pass 1 , In such cases this section of the progs" imiie 
produces a syntax string ouiput viich is used by Pass 2. 


We shall go into the clecdls of these things in Chap cere; Y 
and VI . 


( 5 ) In termediate Pr oces s It checks for the validity 
of subprogramme linkage (internal procedure block linkage). 
It also does modif ico tions in G0J?0 table (prepared for, 
checking any invalid cransfer and for keeping the ixiforraa- 
tion. concerning valid transfer) . This modification is done 
with the help of ICALl table v/hicl'i atorec all the cross 
references between blocks (ref ^r to bfe L >esis presented by 
Mi*. BI.K. Sinha) . 

(^) This section scixis fx'oia the l gmiinj;;' of the 

programme segment and puts the codin' clone j/’ ?asa 1 nn a 
card reflection. If string output produced by Petss 1 is 
found, it does the I^IA-P codixig oX t'us s-.ring in o caid 
reflection. It also checks for any illegal Gj-^anaXcr in chc 
programme segment (External Procedure) . At bhe end of 
Pass 2, Symbol table is erased. 

(7) Iioading of bho As semb ler ? 'Puis see o ion G.iocks for 
any error. If error is found, it Lenniiu ogs rhe joo and 
goes back to the inatial poiiai for xioxt jod. Obh<^rv/isc 
Assembler is loaded \/ith produced I'lAP cod lag of Ilf PI 
source as its input, Pixially the outjirt o. tbx assi’mblxn 
with runtime routines are made ixiput co i;bo Loader. 

GENTRY is also generated in this section and *I)APA is 
replaced by this pNPRY, 
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TtIB SYIli^ OL TABIJB 

Durin'^ Lhe Pass 1 oC the compilation oP a source 
px’o , 1 'fiume , Symbol cable cn b-^ies are iilled , A Symbol table 
cntj^r cons IS cs of four consecuti^ve words paclced v/ith infor- 
mo uion concerning one of the following entities which occur 
in uhe programme segment (External Procedure) being compiled; 

(1) Variable name 

( 1 ) E’en subscrip ted 

(ii) oiiigle suoscriptod 
(ill) Double subscripted 
(iv) fripple subscripted 

(2) Procedure name 
(j) laoel name 

la blc E n try for 

(a) Variable name; location 

t 

t "{"I 
t+2 

t^*3 

nl = pointer to noxt item with ihc same hash address 
if thoro is any. Else nl = 0. 


- -Y Ll 1- 

pOPE irpn | 5XPE 

nl 1 

j TO® 

VARKO iw; 

EVB 

14 1.0 

1 

p we 
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Q^YPE = 0 foi'’ non subscripted variables. 


= 1 

for single subscripted 

variacles , 

=; 2 

for double subscripted 

variables . 

1! 

for triple subscrip ted 

variables , 

= 4 

for Procoduro name. 


l! 

for label name. 



lIVBs T’lis IS Jbc Byiibol table address oP the bloclr under 
^'hich this name (variable, procedure or label) has oome. 
EVB=0 for tlio External Procedure name . 

MODE = 1 for attribute 

= 2 ’or attribuce BIP. 

=: 3 for a b bributc CHARAOIER. 
irpn = Internal relative position number of the varaafole 
in the blooh under wViich this variable name has 
beon declared* 

YAiT^O=z Internal SG(iUGnce number of the subscripted variable. 

= 0 for non suoscripbcd variable. 

NW = humber of v^oxds needed by the variable. 

P = Upper limit of oIjc first subocript. 

=5 0 for non subscripbod variable. 

Q =: Upper limit of the second subscript . 

= 0 for single and non subscripted variable. 

EC = Uumber of characbers in the variable name itself, 
e.g. if the variable is *A-BD* then N0=3 . 



(b ) p JOG ^cUirc ncuiio ; 




m 

NUM2 

NP 





3 :. 


1 


Namo 



TrOT'I? 




I Tor S-inplr pi'oocctnre rnAhout any fornal narametor» 


2 

for 

pa re til 3 brio 

procedure 



? 

lor 

xiniG bioiial 

proouduro 

W3 tl a t uribvite 

PlfED . 

4 

j or 

f uno L lonal 

procedure 

w'lth attribute 

BIf. 

5 

f 01 

Luno bionrl 

preced jre 

atoribule 

CHAPAOfBil. 


Number oP b 3 00 iiCGclod Pur 3IP or OliA-EAGTOPL attribute 
of Builfc in iuiiction or Home nude luaeLp on. 

0 obborv/ioc. 

Level oi Lhc olock* 

No. of formal param. turs in bhc proceduro if any. 

0 other win 6, 
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(c) Labol name I 

Label name includes DO name and B'SGrIN name also. 



UOD^ = 0 if this label is under Pz’ocodurG block, 

= 1 if lb is under Loi^in block, 

~ 2 if it IS undur DO block, 

NN = Level scquoncG number. 

= Infernal DO number if bins label is under DO block, 



LEXIGAIi A^^AtvSSH 


The lexical analysen , gIig first step of coiapilation, 
bCilzcs bhc followiiif; actions Cor oach IITPL statement taken 
"rom input source , 

1) Tt removes the oomuenr portion from the statment, 
if any* 

2) It squeezes out; che blanks* 

j ) I b g ive s 1 ^if or ma u i c n on one oun b er ing c out r ol cards 

(i,0, r-Plj/'\ , 7.1) .'ll). 

4) It gives error if thc-o is aaj invdlid sti-ing or 
synbol or illogal charactir (Dc calls of errors are 
given in Appendix r). 

5) It produces a s crixig oueput for oach IIIPl sba'cement, 
Aloxig v/ibh the string, uxto sboTcomonb charac ten sue -word is 
also provided. 

Only one continuotioxi card is allowed. 

Tho content of soiu?co card of oach IITPL statement 
IS parsed character by cbaracbor and the string is produced 
any olomcxit of v/liioh will be one of the foil owing entities; 

i) Symbol v/ith its Cxiaracteristics . 

ii) Oonsbant (Integer, bit or character ) ^/itli thoir 
characteristics . 


iii)Op~ 3 rators or del irnlt er s , 


4J 


i) SY_130L and ita c laraa u^'nistic: 

In lexical stra.no each j/iabol is represented by a 
pair ol v/ords . i'lrst \'ord is tne cU^ racteristic~v/ord which 
fj uoreg the nuiabcr oi* cuaivcters oi che symbol and the second 
o_iG IS the symbol-^^ord \/:ich stores the symbol itself. 

A symbol i,s a siring of one to six alphanumeric 
c.iaracGers vath iirst cnaivcter as alphabetic. No attention 
IS oi^cn bo differentia be Keywords, labels and identifiers. 
All are fcrcaiod oc[ually, o ’t sorae keyv/ords ax’s of laore than 
s X.: characters. So, any symbol, \/hosc number of characters 
exceeds S3je, "S checked for a posoiblo kGy?/ord. If yes, an 
internal name is ^^ivcr to it with firsc character as special 
character ) bo differentiate with other syahols, othorwisc 
error indicator is pub on. 

Example ; 


SYlffiOL GHArLACfEKISTIC ' ORD SYItBOI V/ORD 


1 ) AB 

0 0 

,'h 

0 

0 

2 


A B 


¥ 

¥ 

17 













2 ) C4.D8 

0 jo 0 j 0 : 0 

A 


G 

4 

D 

8 

K- 



KEYWORD (Oharacber 6) 


, 1 
1) PEOemm^E 

i 



0 ■ 

^0 ^ 

0 

2 

1 

> 

F 

... 1 



FI 














2 ) DECIAEE 

0 

L°- 


0 

. 0 

H 

1 

1 

n . 

1 3 

t 

1_ 

x' 



ii) OOITSTANT and its cliarao beristic words 

Similar to SYIIBOIi, each coxisi.nt (iiiGc:;,cr, bib or 
charaotor) has a oharao br ns bic word consisting of bhe 
information given below: 
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" I'ltunbcr ox CxiaraoGers ixi the constant 
NU Number of worus following the characteristic 

'./ord in which the constant is kept, 

I ODS = 0 For synbols»(as we have already seen). 

= 1 ForIntegerj2 for Bitj3 for Ghtr .constant . 
- 4 For operators and delimiters (discussed 
later) . 

1YP3 = 0 For FIXED DECBIAD BTTECrER CONSTANT 
= 1 For CHARjCTEF STRIUCt GONSTAITT 
= 2 “or BIT STRIiTG CONSTANT 

This chaiactex'xs bic \*ord is followed by the 
coxisbaiit word. 



CONSTANT - 

a) INTBG-ER - A. soring of from one to eleven numeric 
characters is an inbeger. i.ny blank or any operator delimits 
bne GCi-ing. The integer is kepb in octal form in the v/ord 
following characteris Lie \/ord . 



t 


t 
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b) Oil • SxrXing of b iridry (0 or 1 ) un^ler (luote 

bxc,x'i.j(’) Loilov^oa by al;)iiaDdt 3 \/i^h mazimuiTi number of 36 
b uiciry u talccxi oa bxx s cuid i 3 kept in second 


word bxu\,j,oe and left justified, 

f . iple; 1) ‘0(01C‘B j + [ 0 I V [ + j Q 1 I 




M 

rr 

V 

<> 


o) 0 f. S-crin,^ of charj oxers (60 character set) 

unde*' quouo signs 'Lollo\/ed by blcaik or any delimi'cer 
(except ' ) witii raaxx:>]ura of 36 characters is taken as 
chai’actar siring, fwo coniinuous quote signs mean one 
quo -e fi fT as an el o mom of bhe siring. Tf number of 
charac .r jr. *(or bl.an bj ii bakes more than one word.- _ 


H io 

’i?- 

0 

— 

li Li'ili 



Examples s 

OOIf£jO dT CHAK^Cl^bPro dO ^ T) 
1) ‘ 'ECt 


2) 

3 ) hUdJ!KOIClj( ‘ 


ioiT 3 fArf sfiiniG 


H 


0I6 


blO 1 


L.Id] kji ch 

L ; 


H 


0 


8 



— I — I 

kIii| 

I ' ! 

I 







iii) Oporabors and delimitiers - All ariblnnGtic 
operators (+ 5 -,* etc.), compound ariihmeiic operaior (**), 
logical operators (.AED., ,03,, etc,) and delimiters 

(Colon Semicolon ” , > Comma ”,”) are given inbernal 

code. Ihere is no charge l. eristic nord for those, since the 
liitcrrax code itself keeps all tne informations. G( operator )g ^2 
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Ireeps tne mode (=4) to clii Jeroxitiate ib v/xbli other types 
oi j jpxiv, (Oomont, 


hx-'iiiples i ) ,/iI'n), 


2) 



III the o tali emejat-charac tens oic-word , follovang 
1 r o rma o lOii arc 1. ep t ; 


i) Gtr'-'^ •'I'po t *03 a lal;ol or not. 

.L - ) S'u b c 1 te >it 1 it ( j n- e:: c c u t ^'o 1 e or ao t , 
la 1 )Jbon ih ' ) J Llic s cr ? iv^ o at >’^ot , 


m> G-TH 
S is on 

1 IS on 

2 IS on 



o 

S'PATDTOiJKT^ 

o:iAPu\crjRi3?xc -wokd 

T— r- 

1.1 

TCNIPL 

1 1 


ie-A t'l o. I 10 brixTg 

- sbatexiient has a label 

- Declare keyword is pr-^sent 

- Procedure keyv ord is present 


i 

I 


lOBIi’PI == 1 - HVl 

2 ^ ^-DaTA 


encoun bored . 
one ou.it ered ♦ 


A lexical 
irj??L Staooiitfiib 


OLIO Alb or IITPIi statement is sliovni belov/: 
Leu-icul string 


/Ki3G*/A..)^^}ia=\2,, 


[ -yix|7}" 

Djgl 


- oja 0 ( 
— L 

) 0 








SYNTAX AKALYS E R AM) BASIC ROITTIKSS 

Syniiax Analyser checks the syntax of the source 
s baternent (now rn the string form which has been procuced 
by bhe lexical analyser) according bo the general format 
of the statemcn'c given in Chapter II* It first finds out 
the bypo oC the sbatemonb end transfers control to the 
ooT'x os ponding section of Lhe programme which checks for 
the V XidiLy of tiie staceraent, PHOCjSDURB} and hBCLARB 
. ro bhe keywords of moro bhan six characters and, hence, 
in lexical analyser itself, PROCShUHE and DECIfAPJ!) state- 
ments are given special characteristics which make syntax 
checking easy for bhe Syntax A.nalyser* If any labelled 
statement is found, the label is searched in the GOTO table* 
If bhis label is found in GOTO table as a proper label for 
transfer, it is erased from this table. 

Ini bializat ions are done for each external 
procedure. Besides this, some initializations are done 
for bhe internal blocks. Symbol table entries are filled 
and used during syntax checking. 

How the flow of control transfers to the correspon- 
ding routine, is shown in the flow chart named as , 

Before a brief description of the basic routines is 


given, let us talk about bhe some useful variable naiiBs; 
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COIijjGI? ; This IS a singlo su'jscrxpteo integer variable with 
xL'j suhseript naving the upper bound as 144* Actually this 
XB bho aica where the lexical string output for a new source 
sb. boriient; is put* 

I QTL ; It IS the characteristic word for each source 
st- bement put by the lexical analyser. 

Ki It IS a pointer to the GOItSGI area which is used to 
refer any word in tho COLJCT area. 

Tho doscriptions of the basic routines used by the 
oumpllor for bho syntax c]ie eking arc given below s 

^i.11 those rovi tines are \frittcn in ]?0RTR/1T IV • 

IX fVAR : Ihis is a fe.^ble for external variable (global 
idonbificrs) which is iillcd by the syriool table routine* 

SYIrllAB ; This is the syribol table routine, which calculates 
the hash address of tho xey (passed into it through the 
variablo naifto KEY by GOMfSOH statement) , finds its linkage , 
searches tho key and calls the routine PUIIl^n? if bne key 
IS to bo filled. If the key is sent only for searching, 
lb soarches and gives message aocordin^y. 

Hero uses of some indicators and how 
interprets it, arc given: 
i) l.irc=:0, PPRHB'fc;0 

It means that the key is a variable name, and has been 
declared v/ith its abtributcc and to be entered in SYMTfiB. 
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ix) LINIC=:1, P?WJVi=:Os 

Suaz’ch bhia name in symbol baHe. 
ill) LBIK^O, PPRNAffcl; 

li moans bhvj b tho symbol table has boen called by 
to fill Uie arguments in SYMlliB. 
xy) l.lliK=1, PVmhMzz^^ 

It IS a formal paramo ber (v/liich has already boon 
.OLod) of a procorluPv. and only other information is to bo 
a uoivjd tlioaoin. 

uii’bor Tv^tuvnirv' from routine, if 

i) SYlvIKRR/O moans Ghorc is an error in the source 
a b.'iLcmoiib • 

il) POUilD^/mS* means that bho key is fouxicl in the 
our rent olock. 

Ill) POUf]D:=:,p;iXSE. 

(a) V/JiUErrO means the koy is not found, 

(b) IsVEj^O mca.iS t^-o key is found in the higher 
level nctivo block. In case ot variable name Y.-U® points 
bho oiibry in DCf'V*^-R while in other c ^iso ib pom bs the entry 
in symbol bahlo. 

P Uf JMk : IhiB coutino 'men called from SYMM, puts the 
bho iiiformubion jn PSl (free storage location of ohe symbol 
table), Ib IS c aicd Oxily from SBKPAB in case of 

i) 

11 ) IIMK^I and PPRK/J\I=;1 . 

In tho firsr case, it puts the information in the 
noxt free location of PSIi, \diilo in the second case^ it 
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I'aBT 


Iioxical oubpvib 
jj bring in OOTjECO} 
aroa 


,8 lvT=:1 ,]:iADEE=IBLAEIC 
SYII5RR = 0 

OiLcr Im lializations 




(I0iUI{)g^ 


l^=R'+3 

I,Am=.00IiE0l’(1 ) 




0 3 

[OALIi DBQIi/lR 


Other 

thar^2_ 


Ex'*t‘or 


I D^QBiy=1 [ 

zzztzkr r — — ! j> 

OAIili PjtiOOER Prologues 
roubino F-0 and Epii^ 

OgUk^S 

roucino | 

I)EGBia]=:1 ^ 

and olhor 
initialxzabion 


Starting 

point 


lIesi=ibla^> 



S barbing Point 


j:iAhei= 
IBL ^ 

^ :=:0 


O.-Lli 


•EOBIT= 


PRO BP1 
routine 
( Prologue 
and Epilogu 



”, oc x’cli jhi j Ic! b V.1 
in GrOlO Pr/oU .li 
found snu if it 
13 a proper label, 
j or i.r-in3XLr 
erase lo from 
this «s,iblo . 


Brror 


OALIj i 
SI KPAB I 

I 
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puta bh'^ informa bion xn the area of FSL, which is pointed 
by routine , 

PEQLAH ? i‘h3,o routine is called \/he never a DECLARE statement 
IS onGOunberod, fills routine checks the syntax of DBGLARB 
sbabemenb v*ird calls the routine SYHT^’JB to fill the entries 
in bhe symbol bible for declared variables. It also does the 
coding for bhe array name . The basis of calling SYrlf/iB 
routine js bho Sc-ne wS rnontioie d earlier in the description 
of SYiyi'f b routine. 

f j.^QCDH ; This routine is called, when any IROGSEURE 
sb itcment occurs inbho soua^ce programme. It checks the 
synbox of bho stacemont, pubs -che entry of procedure name 
in the symbol table ond coding is done if the stabement 
IS found synbacbically correeb. In case of the parametric 
procedure and the function procedure, formal parameters are 
ontorod into the symbol table by calling the routine SYHTAB 
with IjINK= 0 and PPREAMt=:1 . Each time, external procedure is 
oncounboi'ed , this routine erases all the symbol table 
cmtrios oxcopb Cor the 0 / t ))0 oxternal procedure 

names and updates the pointers of the linlcage of the keys 
having bho same hash address accordingly. 

M.\IH t fhis is the ma:in routine of bhe compiler, Ib finds 
the type of the sbabement and trinsfcrs control to the 
corresponding sec bion of bhe programme either in 
rpuhine itself or In obher roubin.es. Actually this 
routine consists of many subprogrammes. Besides this, 
prograrames of intormodia-ce processor and of Pass 2 are 
also submerged into this routine. 


Horo i'0W routines (submerged in the routine) 

usGd in Pass I coding ore described. 

( 1 ) routine : This routine chocks for the validity 

of the B3G-IN sbarement. If it is found a volid one, the 
entry for it is created in the symbol table as well as in 
tho block stack (BIOOK area). Block stack , pointers are 
also advanced. If BiDG-I^J is not a labelled statement an 
infcornai nrimc lo n^ivon bo it and xho entry for this name 
ii; c re 'led in bbx symbol kablc and in the block stack, 

Then ss I coduvi (discussed in tne next chapter) for 
bhis st tement is clone \''^ich works as a prologue of 

the block, 

(2) ^ rpu t ino ; It chooks the syntax of a GOTO 
stabomont. The label name of a GOTO stevtement is searched 
in the symbol table. If tho label is found in the same 
clock as of GOTO statement, it generates the transfer 
instruefcaon for the GOTO sbatemeiit after checking the 
validity of transfer. If the label is not found in the 
same block, it then soarohoa tho label in GOTO table* If 
this label IS not found tlicro also, it is put into the 
GOTO tnblo . In both tho cases a string is generated for 
tho GOTO statoriionb so that it may be coded in Pass II, In 
the next chapter GOTO and CALL statements ox^e discussed 
in detail. 
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IP STAO'mTOW'P 

± 

IPBIT=1 ] 


.-^'OR ITHB1S=1 
OR lELSE/o 


Yoa __ 
( 

i IELS=0 


m 


IGONa?V= 
I IFWORD 


irsTiccu; 

irii 

ai’)=IWORD| 
?=i\rip+i 1 

> 

< 


j?oll owing expression! 
IS coded 



ELSE STAM'EHT 



■ NIP=1 |lBI iSB=0 

n = lPS!rK(HlP) j 
I and genera-fce , 

I .En ESS i 

--J- 

i T^ ^ 

I Return 


Gronerate coding 
TZE .BOOOn 
ns::IEWOKD 



Re burn 
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(^) .^rETy^PUj^ jE^oubine « is "tlie I/O routine wh-icli checks 

the syntax or &BT/PUT statements. Only EBIT directed I/O 
leatui’c IS allowed in IITPL, After syntactically found 
oorx'ocb^ ooding for OIll/PUl is also done in the routine* 

The codj of this sxubement is totally based upon the 
POj.L‘fxiAli IV l/O I’outiiies , 

( 4 ) This checks the syntajc of 10 statements 
fcho correspondinf 3 , inforaation in the block stack 

(iiv^Xo.L'W' i of I'lLboen DO clocks can he active at a time). Two 
acbive uO mocks oamot have the same control variable, lull 
codin^'', Ol bhe 10 stabement is done by this routine itself. 

(5) Il/BlSl) routine ; It checks the syntax of IP & ELSE 
stabciijonbs and keeps timck of the nesiing with the help of 
IlSTIC bable. By multiple nesting, maximum of twenty lEd-* 
can be made active at a time. ELSE statement can only 
occur if a corresponding IE statement has already occured. 
All bhe active lEs* are berwim bed on encountering a 
non-SLSB s t a b omen b . 

(6) Eiil 3 ^oubine ; This routine chocks the syntajc of EIID 
sbabemonb. Ib pli^^sically ends the corresponding block or 
bhe group stack and moves back the pointers for bhe block/ 
group stack. If any block ends, it generates coding for 
epilogue of this block. At bhe beginning of the coding a 
charac bens bio string is produced which helps in managing 
tho block stack during Pass II. The coding for transfer - 
point to avoid those codings which are not part of the 
object programme? is also generatod. 
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(7) Htin^lTRlyT routine : T!h3S routine, after checking the 

C 7 / itc'x or tho ''1E5URB fjlatoment, generates the coding for the 
bc" wination of bhe procodurc block in which it is contained. 
IX aij/' bogin olock(s) is present In bho nested block stack, 
r-'O oodiijg fou uhe tornUiici cion of that (those) block(s) is 
also ._^cnorabca. In oa.ce of a function procedure, i.e. if 
cnc fl bat omen b is of t'lo lorm of ”RETUM( expression) , the 
coding for tho oxprosbion is genera bed in such a way that 
chc v-tluo of bho expression is put in AO (Accumulator) and 
uiio control lo tr.insf ori’ocl bo tho calling point, 

(8) OPEjVVOLOSB routine s (Bhis routine checks the syntax 
of OPEN/GIiOSE statomen bs and generates coding which sets 
tho indicator of the corresponding filo OIl/OPP respectively* 
^Thon any file in I/O sbatoment is roforred, the indicator 

IS tested, ir tluc IS on, it is supposed that the mentioned 
rile 3 s open otherwise cPj'or message is given during the 
oxccubion. 

Rout in os for handling blie expression and assignment st at emnt 

ASOTFls Ihis IB a synbax checking routine for tho arithmetic 
uxpi’GSsion. The roubino is used for compilation of OALIi, 
logical and arithino bic IE, DO, REIIXRh and arithmetic assign- 
ments. Basically t^ns routine accepts as input tho contents 
of OOLISCT area wibh its pointer denoted by "H” and prepares 
two stacks (in ISIAK) called tho operand and operator s backs. 
While doing bhis it chocks syntax and uses the SYMTAB 
routine to bhe variable names or the function 
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prooLtiuro Ji"' fcl.o rj^nbol laole. ^ 7 itn blic help of 

SYi^VlB, ASSKPiT dif ! orcnlaa hos the array naino and the 
i'll c b 1 0 n zuimo • S S stops pr ^ p ar j the stack v/he neve r 

0110 oC Llie fol 3 ov'Lhj,s lo encountered; 

( 1 ) Sernr colon ( 2 ) oiuhai of the four keywords IHEiT, TO, 
r.tr, './tllLE (j) Zero level coiniaa, 

Afe^r successful pi^cpara bion of the operator - operand 
s u <1 c , c o nj; r ol is r o c ui’ n eel from ilS SI'TRT a nd JI 'IPTBi routine 
j,j c illed u]i( ooclx.if^* 

‘Ja O-L • Ti u s x‘o t ' b ixio uses Iho s b u c Is f il 1 o d in IS T AIC area 
by bin- ASSMiiT for bn^ codii,_^. Opciibor jump bable is 
shown whioii shows v'ui act l on is bo be tak^n for a particular 
ojeiVi boi'-optratoi* oOviucncc* The main purpose of JJIPTBIj 
roubino is to branch on bho corresponding, section of the 
pro^^ramrao to do bho acbions desired for particular 
opoxMi bor-operator sequence • The dosirod actions are also 
done in Jil’n’BIi with the ho 3 ip of MODCHK routine and OPTPfRT 
I’ou bino , 

IIQBOnK s This roubino chocks bho modes of two operands if 
l^ossiblc dun 112 compile b Lun. Otlicx'uiso ib gencr^ecs the 
coding for bhoinode chockiAS bl c time of execution in 
onso oC sbabomonb Cuncbion lofinibion. Ib also sots the 
proper V a 1 uo s bo bl i e point or s KOPj-ID , K PTR , IPTR I , IPTR 2 
(disouosud Inter), 

QPTMR T ; This is the optimization routine^ which optimizes 
the uso of regisbors* This routine gen a ates the coding 
for bhc forced operation. 



Qompxlation Toohnigue : 

The method used ixi IITPL to con^pile the 'arithmetic 
expression or assigiiTnent statement involves two strixigs , one 
composed entirely of the oporatorvS in ’jhe same order as tney 
appear in the original expression and the other composed 
entirely of the operands in the same order as they appear 
in the original expression, Null entry, which is denoted here 
by IS included in the operator s bring so as to effect a 
correspondonoe between the two strings, 

H eprosen ba bion of the SLi'in^s i 

The two sticks of opciand and operator have been 
compressed into a single sxring, i.e. to soy that the ibh 
entry in bhc operator string and the ixh entr'^ in the operand 
string oooupy one IBM 7044 v/ord in tne format. 


M 

t 

OPERATOR 

OPERATOR 

T 


0 

y 

INTERNAL 

PRIORITY 

Y 

OPEEANB .'DURESS 

D 

p 

CODE 

COBB 



B 

0 


u 




S 3 6 12 18 21 35 


MODB == 0 lor 
= 1 for 
a= 2 for 
Ks 3 for 


label variable 
incegcr 
biL-stnng 
character 


type = 0 for 
= 1 for 
= 2 for 
= 3 for 


imple variable 
-B array 
-B array 
-B array 


TYHil 5= 0 if this operand is a local identifier 
is 1 if it IS a global identifier 
:= 2 if it is constant 

3 if it IS a function name. 






Operator 


__ Aerator internal 

code 1 

Priority Code 

ID=:0“^ 

1 ■>». . II . > „■ Ml 1 



II)r=3 

ID=4 

IPx5 

1 







2 

"" 






3 

( 






4 

r* 

i 






3 

) 






6 

1 






7 

j 






8 



Unary 




9 


/ 





10 







1 1 


. U. 

.CrT. 

.CR . 

.LS . 

.LT. 

12 

.NOT. 






13 

.AND. 






14 

.OR. 






i 

.OAT , 







Sho operand address is the address ox the symbol 
tabic, or a poinbei' bo one of the stacks; 

(i) ixivaIi: (ii) looi^si (ill) i?mv 

^fhe descripbion of soi.ic of usaful pointers are ^iven 
below J 

ICOPBD i Address of tiiab operand which vdli operate on 
the next operand, 

IPT1 ; Pointer to the fJrst operator in ISThK, 

IPP2 i Pointer to the second oporator in ISIAK. 

KPTR } Onrrent pointer bo ISTAK vdiioh keeps the i.iforma' 
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INITRG = 1 if initially kG ±3 going to be busy, 

== 2 if initially MQ is going to be busy. 

IRINRO = I if finally AO is going ^ 0 be busy, 

= 2 if finally MQ is going to busy. 

IPTR1 = pointer to ISfAIC in v/hicli tlie operand corresponding 
to KOPKD IS filled in JSTAK, 

IiKEO := 0 if both registers ore free. 

= 1 if the last -register used is AO. 

K 2 if the lost register usid is MQ, 

ExnmplQ *. 

A = E = B*(C+I)) - EU1\T(X)+S0B(E) 

The opQJ'ator'-operand stack for the above ste cement: 

0 

s: j\. 

=: E 

* B 

( 0 

+ 0 

) 0 

D 

C 

3 0 

+ X 

j'“ SUB 

j' ^ 

0 I 
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• 

Pi 




o 




H 




-P 




O 







« 




M 




3 


« 


o 

pi 

0 


o 

CQ 



o 


H 




i> 




H 


o 

Cj 


a 





0 


1>5 

o 


o 

j 1 

p 


-rl 

ft 

tj 

!>^ 

-P 

H 

Ph 
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Pro co 3' jn:-, or tho Str3.x';n;s » 

T]hG leclimquo \iyeu to procoa'j zhe strings is very 
siiiiplo and involvos a u^i/u-v/ay jump tablG (sgg the operator 
jump Lablo) Qiid b\, o po Intel's IPS1 ai:id IPTP ^/hich poinr ab 
the operator s brings, wibh bhe help of the opcra.oor priority 
code and its v<iluo of ID (operetor-intornal code), Gorrospon- 
ding entry in tho table is found aiid control is transferred 
to bUat anbry, 

DxoJTiplo i IS IPI1 pomb.. aty* and IPI2 points ' = ' then 
bhcj acbion ind lo ’bed by 'SKIP* is pwriornicd, Ine definition 
of tho bablt. untrats aix ,'‘ivcn below: 

(1) SKIP: JPI1 Ls sot oqual bo IPT2 and IPI2 is 
adY.tncod by one otc^p^ (ignore thi. null c ny^'ies iT any) , 

(2) JirW This occurs when IPT! points at '(* and 
IPT2 poinbs at * ) * * The onbries of TPT1 ^^nd IPT2 aro 
erased, bha b ls CSTaK (XPT1)~0 and IST_-GK(I PT2 )=0 . 

XPT1 IS rctreabod by one stage and IPT2 is advanced by 
one stage , 

(3) ^bDD, SUBT, UPY, DVD, FffiL, i.M), OR , DOT, C..'L^^ 

The opera bion specified by the peinter IPT1 la 
ISTi\K IS perCormed -aid bho result is put in fcau. cnbr;> 
foj‘ tho 2nd operand in the opo3.'tor spring. The cnti-" 
pointed by IPT1 is ox''asod and IPTI is r^tr'^auCd by one 
stage , 

(4) POTGs The initial lirieage for bhe fULietion piocodure 
name (or the subscripted variable name) designacod by the 
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1st operand is ^Jiencrauod with the help of the vao stacks 
(IIG/iRI) <5* lCSTIv2). The first operand is erased and the 
forced opernbor is replaced by Both IPT1 and IBT2 
are advanced ono stn£^e • 

(5 ) /VRCts The Godii'S for the subpx'’o^^raifl argument 

(or subscript of the an ly) represented as the first operand, 
IS genera bed usiiig the rvvo stacks inoniioned cJjovo, The 
frrsb opoi'and and tnc forced opc rarer are erased and both 
IPTI and fPT2 oro advanced ono sbrage, 

(6) This torminabcs the gonuration of Ghc function 
rofer-once liiikagc (or subscript of the array nar-ie). Tlie 
coding for bho subprogr .mire orguinanb (or subsenpe of the 
array iiamo) represented as the second operand is gencr:ted 
and bho complete coding for bho Cunobaon procedure (or 
array namo) is moved X'rom the stack IIChKD to the object 
programmo • The results is siorod in temporary storage 

and tho 2nd operand is replaced b;> that temporaty storage* 
The forced operator and the first operand arc erased. 

ITBl robroabed bo the set up by (4) and it is erajod . 

IPT1 IS now J'obi'oatud one stage and JPT2 is kept j ixcd • 

(7) KttRs Tbo oporabor indicated by TPTI cannot be 
followed by tho operator indicated by IPT2. Snor message 
IS given. 

(8) s Tho egualiby is forced. XPT2 is kept fixed 
and TPTI is ro treated by ono stage. 

(9) SPOh: This finishes the compilation. 

(10) i3XP; Coding for exponentiation is generated. The 

forced operator is erased and IPT1 is recreated 

by one sbage, 
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CO DHTH ; 

This rou'c j ao can be callGd from sny \/aore. It 
proviclcy ^ho be bo wnb^on in correct MP format, 

AI3 bhn MAP ino bruc biams produced by bno compiler j have, 
less than or equal to, tla’oo agruments and which always can 
be written in 30 oolunns of a card. Thac is \/hy, all MAP 
instructions arc v^ritLoii in only 5 v/ords (IBM 7044)^ fhe 
format for involving COPRIJl is t 

C/\JjL GCPRfh(IOPOOP, M-iGl , I.1RG2 , 1M1 , ROAPiG),. 

\/hGro lOPCOP - !PhG OP-OOLE ol the instruction. 

LARG1 - flic 11 .'j u argument. 

CARG2 - Pho Sk^Qoud argument, 

NUI^M ^ Kumber of chax’‘aGtcis ixi first argLupont. 

NOARG - Wo. of argumenis (1,2 or 3). 

Tno variablos linlced by Od'iMOW statement are 

NUM3, IARG3, I0P(2), IAR(2), JIDGP, lOAXlS 
whore IARG3 - Iho third argument ♦ 

NUM3 Wumbor of characters in the third argument , 

JOP(M) - Infix operator for linking some constant to 
Mbh argument . 

TA.R(M) - OonsLant to be linl^ed bo the Mth 
argument by infix operator. 

]\!DGT = 0 - Arguifionts 1 and 3 are variables 

1 - Arguments are constants and the first 
argument should bo preoeded by prefix 


oper it or 


NDG-T = 2 - Arltgumenty are ccxisfcant but there siiould 
nut bo any prefix operator , 

ICA.IjLS=: 0 - Cohrug done in PASS I should be transferrod 
to bbu baficx* bo wx-ite on tape 0, 

= 1 - Going ohoulcl bo dono and kept in table* 

= 2 Siaiomoncs should bu taken from table 
and troiisforrcd to the buffer. 

= 3 - PASS T endinork for one ortcrnal ‘r'lroceduro 
IS given , 

=s A Coding dono is in PASS II and should be 

IransfovLod to buffer to v/ribu on tape 4* 

If lOPCOP IS iiot any valid MAP OP -GODS but is either 
of* the live spoolal oho rac tors then a scring 

s barbing Trom OOLSCf(l) and of siao 'ilOARG' is tran.afcrj.cd 
Lo bhu buf/or of bapo 0 

OOFVRl ; 

Phis routino converts thu oinaxy number into bhe 
alphabetic mode « The nujnber sent as argumen'c should not 
exceed the vrO uo 262 M3* 

Pbo formal for invoking GOIIVET routine is : 

OADL COTOP (h,M) 

where the number which is t o bo converted into the 
alphabetic mode . 

M= 0 - Pho nurabor sent v/ill be left justified* 
c= I - The number sent will be right justified , 

SEPPPRt 


It generates codings for BZISHU and EKPRY statements* 


giIAP3}t)R Y1 
1 I Cr 

Prei'jenb clia^'L^r da.fcjcuoses about t.ie aotioas done in 
Pass 1, It also dosoribna uboab cei tain us^Iul tables 
(BLOCK sbacl: obc.) aixid poinbei’s needed xor compilation. 
Bpv‘.cial attention is paid i;o\wrds OaLL and GOTO stdements 
in Pass 1 besides t-bc o] ode structure. 

PA .es 1 i iXiiy JlO’PL souocg stai-einenG alter being syntacti- 
cally olKoled by tjio Synxc.x A.nalysor, is entered into bhis 
block lor posaibJe coding. Initial codin^^ is also done fox’ 
tew s u itementa, x.g, to say after a segmeirc of sbcu^riient 
being found sytibao tiCully corx'eci., c>,rrtsponc'i 4 g coding is 
done. As Tor example lot as consider the c vse of a 10 
otabernent. BO I s^expnl 10 expn2 BY ezpn'^ . 

Suppose Gxpn1 ps A+B. In such cases coding for 
expn1 Is done and control variable I ixS set to its initial 
value equa'I to exprvi , l^e. A^B in bhla case. Ihe coding 
wid bo^ OLA 1,1 

ALB 2 , 1 
SIO 3,1 

where 1 ,2 and 3 ohow the corrcopondjng relative position 
number of A, d and 1 in the present block. Ihen pointer 
ns moved Prom "lO*’ jo check the syntax of one remaining 
part of the a tiitoraeiio * In suen casos it is use Id to do 
partial coding blian bo do whole coding after goi:ag tnrough 
a full checking of s^nxax for the scc^temonG# 



Similarly il a subscript ed vea-iable is declared, 
uliG corresponding codiag is done. 

DCcinpleJ DEGLA^71i) A(5,l0) FIXED 
the coding v/i31 be 


SXA 

..IDX2,2 

TSX 

.SUBR2,2 

PZE 

7T 

PZE 

5 

PZE 

10 


\/hcjO*n’ IS bhe anb(.rxii’l muiber of subscripted variable 
and ’Ij’ IS llie sbaj'fcijip, position of the suosci'ip ted 
variable . ,SUGR2 is a runcime routine used to cneck the 
upper limit of subscripts, 

D3jQ GK »3Lructuro : 

A program segment winch can coxitain local identifiers 
IS called a block. Iwo kands of blocks are provided for in 
IIIPL (as said earlier). 

(() Procedure blocks (2) DEGIF blocks 
The lerm ’’block" refers bo cibher kind of block while its 
t'ind is jncHcnLod by bhc content. 

Any procedure block ezeepe the Mam Proced’ii'o clock 
from wbex'e Llac ozocution starts, cannot be ozecuted unless 
lb is either properly called by another block or is referred 
os fundtion. This calling or reference should , of coti.se , be 
valid one, while BEGIF blocks are entered in die normal 
sequence of exocubion* 


q.UG 11*^1 y B13GI5I bToclc musb b© coii’tsinod v^ltibllll 
ano uhcr block v/hich may be either BUGIH or Procedure block. 
The ouLermosb block inusiy be ea ex^cerial Procedure t The 
concept ot "scope o^ idonbi-eiers" applies to BEGIN block 
':^lso in exactly the same v/ay as it applies to procedure 
blocks. However, BEGIN blocks cannot h<WQ parameters. 

Bolore going i.iuO cho detail of handling Block 
structure by compiler, lev/ vax'iable names used in the 
prograinirte and their purposes are described belov/s 
Sj 9P-S* Tnis 3 s a single subscripted variable with upper 
limit oX its subscript as 66, During compilation a block 
0 baeje js Cormed and exibered in BLOCK area* iTesimg of 
blocks are allowed v.’ibh upper limio as Seven (7). Each 
entry cakes three words of IBh 7044 bo keep the needed 
Information, Entry i or DO group has also been merged 
in this stack and a maximum depth of 15 (fifteen) for 
DO group is pi^ovidcd, 

rt IS a non* dimensioned variable and it 
points out the otarbjng po^nb of the current block or 
current group (v/hicliovcr is last one) entered into the 
BLOCK area. 

KJ3LK: This a] so is a simple variable and points out the 
starting point of the euxu’ent block cnocreci into the 
BLOCK area. Last block may either be BEGIN or Procedure 
block . 



K PROj_ Thxs is a simplo variable and points one tiie 
sLurbing poinb oi curront procedure block entorea into 
I no BLOCK area . 

IRPgs Internal relative position number j usgIuI tor 
giving tho Jnbrt'nal nunher (relative position nurber) 
to each Jclonbiricrs (local or global) lor tho current 
bloc In , 

s fopi'usG'" bs che inuernal block number jiven 
by tho comp ml ex’ used dui'^ng coiiipilabion as well as in 
execution (runtime rouoine), Bach tine a block is 
encountered j lOJji’O is increased by one with I'cs initial 
value as aero . 

Ii§K 4^52» IhiQ is the sequence numosi' oi BBCIH blocJ: or 
1)0 group, Bach time BO group or B3C-ILI block is enoountered 
LSBOWO is in aroused by \/ibli its initial value zero. 

ICSBg; It is tno curronb sequence nunocr iii case ol 
DhlG-IN block or BO grou]*. hlsc it is set to aero. It is 
used to check any ilLegol fcrvinsfcr in BO group. 

rSIit Free s toi'ago loccibion? used Xor prepariig Sy.jbol 
table. It is a single subscripted variable \-jtb upper 
limit OC40C0. 

BBCBrii It is set to 1 whenever new block is encouxrcerjd 
and sot to zero when aiq/ executable statement comes in 


the block. 
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Sx aok 


As said earlier , each oxibry in Block sxack cakes 
uhree sconsccuLivo v/ords oX lOl'I 7044. BBOCK/group stack 
IS Xoriiicd in tlic LoJlov/ing way; 


KSEQ T IVaLUB ' 


iTaino oX the block/group 
Il’TiJO .~! 1 VAS 




ilODB ~ 


KCISQ = 


vm:,iie= 


0 ir tUo prosrnl. block 2 S prooodurc . 

1 iC jt IS a dogLn block. 

? li lb IS a BO gi**oup. 

0 Tor proGoduro b] ook 

cal'' rent ]orel SGiuciico numb - in case oX Begin 
block or BO group, 

poinb(V bo the BBL (i.e. in table v/hothcr 

this block IS entered)* 

0 Xor unlabcl] ud DO statement. 


IX any unX a b c 1 J o d BB B Xh s c u eui e c c oi\ es , in b sx'nal 

I 

namo is o'oatod and pub into symbol cuble. 

IBLN 0* Tn t o J ' na ] b 1 o ck nu i ib f r ( C or o hi s o 1 o c k ) . ‘ 

I 

= 0 Tor a DO i^roup , ; 

VARs This IS i'ilJGd when any nooted hlooh starts, in such ! 

r ; 

a case currciib block is enberod into the BLOCK area oiid Xor : 

previous block, 7AB is set to JRPIi, Then IRPN is set to i: 

i 

zero to start v/ith a row counting for present block. 

I 

[' 
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B1 . .PUOCiJDlUii; OPTIONS (MTN) 

DECIiUtE (A,J3,C',D,E(6,4)) FIXED 
A = B+C+D , . 


B2 . .BE61H , , 

DECI,A.a:i (E,P) FIXED ,, 

E = A+E+r , . 

J33., BEGIN ,, 

DEOJAxrE (A,G) riXED 
A K ^.4*^+0 +D+E+P+G ; * 

END 1)3 , * 

DK .DO E r. 1 TO 8 , . 

E t*;: S i-E+B , . 

ElID B1 , . 

Wion DBCDADTi) E(6,^) FIXED is encountered ^ IPPiT uill Be 4 
and cho coding; oP the suoscriptcd Vviiiahle 3(6,4) will be 

.V0001 SXA .,IDX2,2 
TSX .GaBru2,2 
I>Z3 5 

PZE 6 

PZE 4 

’v/hon B2 1 *PliOCEDUHE ,« la encounberod, lilPE = 28 and the 
BLOCK stack looks like 

KPRO,KBLIC,NB ; f q Tmm~ BL0CIC{1 ) 

r ^ ^ 
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JTo'i( value ol TIIW ,ill ’’c put \a (BI>OCK( 3 )) 2^__,5 and 
nc’./ bloci\ IS on'lc‘’'‘eci ] lLg; 

P-__l V />LUE .8IiOGK{1) 

Ty_ 

^1 1 28 

OTjXBIiK LJJ.. 1 ViJiQB oiss 

I B 2 

I . X 2, [ P___XJ BI,00K( 6 ) 

Sunilarly wlion j, comes IltPlX = 3 (two local ® 

idLxipiricj'S (1)] and Ip axid one global idenbiiier A), Con-- 
soquoritly r>ljOCK( 6 ) v/xll have the contents as rollo\/a: 

! _3 j £L 0 U 1 ( 6 ) 

\;hcn uro Bp , . coi.ius ® = KdiK = 7, KPRO =1 , 'L-IPH =7 
(two local A and C! , bhroo r,lobal needed Trorti ^"lock B1 
(B,C,I)) and two ,«loba] '>om Ij 2 Bloch (d and B)), 

This TRPN '/ilL put in (PSl(Y''LiJ 8 + 2 ) ^ 
showing chat the piosciit I'lock B 3 needs only 7 loc’uions 
to bo uood Cor uloni- ' dui'^iny runtime* VILUE i.s the 
poinbor bo bho syinbo] iMil)le whore D3 lo put, 

"Wow Giibry lor Po if3 erased, poirbcrs HB and KBIK 
aro moved one sbago In oh, i»c * ICbLK = 4) HB = 4 and 
IRPIT IS sob to bho ncM v. .lue, i.o. =3 • 

So that if axy other global i(<Ciiciiier is needed, tha o v/ill 
bo given a rolativo position number 4. 


When DO i" 1 bo 8 


1 C! GUcou-iterLd BLOCK entry 


Xoolcu 1 lice 2 


KVDO 

0_g J YB1 I 

Bl 

BIiOCK( 1 ) 

IC13LK 

- -_J.LL„_28 1 

1 III Vf!2 

B10CK(4) 

N13 

B2 

-I'lrtLi.iiZ. 

_2_ I’riPi’®'! 

dT 

BL0C:.(7) 

1_ .-Pi. 1 .0 


Lhirj 10 aJi wibouli Uio Lioiuc/gx^oup stack Loi'med , 
irliJ^J S^. ^PXL l-ikl JH Jlpppj - 

Dj 'pcc du ro bloc k: Ji i uj a Iliin Proojdurc and i bs name 
la , oay, )M ^ br(' poaoDalo cuC ing in Basal mil be 

$miAB B1 with BJICBIX 

iBA .In sob lo 1 

IB any siibaorjplod variable is acoiaied in this proc'-durc 
the ooclnug Bor Lho aunio will oouie a Pier this. 

As soon as c ny oiiocutable sbabonicnb or obh^r 
bio cl coinoo, Toll owing cofings c’c done t 

.in BSS n dciiobcs the coxwespon- 

y-yy'V V“ ^ 

A.<A. A Jx. Axi. 

dir^ block number. 

TSL .BIIKPIJ 

\/hca.-o XXX.UX dono-toci a striii^ of one v/ord vmxoIi looks like 

!_ l_ _ _ imwoj ^[. 1 

' Type 
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v/here TYPC =s 0 Tor jiiaplc iU-’ocedure block, 

= 4 Cor paramtjcric procedure or function 
proGodLa''o ♦ 

.illRTN - IS a jrUiiciinc routine used here for loading 
ble current block inlo x’uncirao stack, 

g:c_t c rn al Procedure block i , o , a c h leve l, 1 1 (but not a 
/nain pioccduro blocks 

n,. pnoofs-Duras (a) 

Cod inn * ITBKAP 

TJITIRY P1 
PI TRA '«•' 

LlO ^^-1,4 
'l\U .Tn 

(Oocliik’; Tor sub scrip led vaxiablo if £ r^r declared) 

When aiiy executable st. ooacnb cones or anotier olock comesy 
Pollov/rns codings arc cloxic, 

.Jn BBS 

X:(XXAui Slrin'j oi ono word 

TSi .imix'ij 


I 


TXX 

P2B 


1 j ;n 

M3?1 


no. of or^p'unen'c: 

node and lypc of 
1st arg. 



Cj. 
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Pro G ocl i g^Q 


rr,^ 1 /t 

.liU -^000000077777 

ANA .-.0000060277777 

OHA :^0O5OOOOOOOOOO 

tlXi]]/ *’4.'] 

OIA 

►J‘J-0 ] irpii xs tiiG rolative 

posicxon iio , of 1st 
formed parameter, 

(x.G, /xtli Pavel I) without ary 


PvUMnio Ur J 


P2.,phoojpi):a'; 

o6x.-\l^i itIBMAP P2 

TiiNTpy r2 


P? , 


TRA .In 

(OoclTiv^ for Oub.Vir,) 


,ln PSS 


x:oa:a 


Lijj, ,aTH?K 


Prooodu rG Plo d (l^e. vxtl: level 1). 
E xample ; PI , ,PIiOCr)PU/P OlPTOIIG (tUIi'f) j. 


P3* .Px:OCjpuiffl 
Stmts 
PNP P2 , * 


Stmts 



Coa in'* for 1>3 . .KiOOQEODT?, 


.'n Pass 1 be 


J • 


u-lifD 1^2 


Ll', 



T'l 1 

,Pn 





’['Rii 

♦In 

,in 

• • • 

13RS 

« 0 » 


/ . r r ~ 
JwVji. — jvji. 

3 ti’inf? 


T*3I, 

.E'AiTil 


.3 .n 


c od od 

iss 


•3 «n 

THA 

'{• /r 

(OouiJig 

I’or 

1 nl'iy dP 


TRA 

b •11 

♦ Pn 

BSS 



• Q 

o' Vb [ 


u'-iol kt nt^fLcr) 


Ab ov 0 0 Jca 17P J 0 us u d Ia / o ‘J r b p 3 •» * i'i os ? 

(I) ♦Pn ond ('^) Tl*!! 

,Pji III is nDaboI naioo ic >uL ct the encl of ti:* 

Gotl Ipg oC 133 ^ro si'AbuifiCuii 1.01' iiiccA'uul pi'oceuure blocii. 

To Is 18 dona l<o j-iainUun cue nornal seciuciicc ol e/cecocion 
Ox U'o p3'‘0£,i’i.imme • 

in tUo above exuJiJpio TPA .Pn v/ill transfer concrol 
I/O i/ho xiQXii oxocubabLe s L.ii-Oineii'/ lu P1 whicii xw t'le iiornial 
occiuoxico oC oxoculixon stuoc auiuxif., Lxoculxoii co-icrol camob 
enber into ai^ prooof-urc oloci ,/ibhout proper callizag or 
pro p or r G X ox'c noo ♦ 
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Thi?! IS label name put at the ond of an inbnrnal 
bXock (piece 'luro or be,'",'!!) Lo riiako the entry for global 
jcionb j-C lors no ode d in Jjis bio oh, 

9P^ Inh for J1 e xii^ oc h : 


hi 

.jh.CTir ,, 

v/ill coded ns 

D1 

I’hh 

,I n 


.In 'I’GIi B,xi 
ilo^pig jli. 0010 SUi bcmonb 
ConciMl i'urji.tj GOIO L 

x) If UiO l^ibol 'Ij' 13 olri.LCij' ijr.scnt i±i chc curicirG 
bluclc, bhcii Uio codo produced oy vio oonpilcr is 

Tihi X 

or ITui pin when baore a^e 

lAurc liian one labels v/ith sane Jiaiio 'L' ead laoerxial 
nunbei’, IS given Lo bhc label '>f this ejock. 

ii) IX bho label ‘id has boon dGcl*ircrl -3 t Ir-bcl 
vr-M^oblo In the block, bho a the code isJ 

1,1 

v/licro denobos Tnbornal posit j on nuirbor of lo''^cl 
Vi riablo in the von <i bio sbnek. 

Ixa) If L^bel ‘L’ is nut douid in bhc block, st .uenent 
IS coxiv-rtorl into a sbt'iug as P -SS I output /hicli in turn is 
used by PoSS II Xor proocr coding. 
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COi'O Tj ^]io sU'-ing for this st 'cement 

\/j.l] OOOOOtH- OOOC01 --01000 

Tirsc v/oi’d ij tho a urii"g cliarrc lorisuic v/Oi?cl. 

If Lho Isbel irj nut louiicI evox^i in the eurren'c prcceclure 
(iioo block), 2t IS XlIIocI In GOTO c ♦ Tbc nirnagenent of 
goto tab] e is dono vn Lli Lbc of IGflK table and its 

pointer NPb (soc /'.p'^cndiir) » 


p/Ji rJ in -i Lennon t 

Dno to poss lb lI i-ty cC oocuronce of ixi ter -subprogram 
tl'vi-is I'or GOTO }j t ’ teiiieiits , the ooding of CAIiIi stoiemenb 
IS no VC r possible lh PAS S 1 « The r e (lu j rtd ret ur n p o int s 
(nooUed by antej'-'SUbprogr.r’-'.o GOTO st ux-rue-it) v/ill be 
CUPP Liod .with Uic coding o;:ijnnsiou of OALL stdteiaent in 
PASS 1 J . 


Eiprecbions to be ’^treiiSfein ed as arg^uaenujof the 
CALL ot«.' turnon b aro coded in PASS I itself. The value of 
the oipco.se Lon are kept in runtime temporary loc^tbion.i ,+n 
Olid its modo nn ..T+n rospootively . ^Aierc 'n' is the next 
available tcmporr'iy location. 


The CALL etatoment is converted into a string as 
PASS I output, which l}i turn is used by PASS II for the 
px'oper coding. 


00000^1 loooobT 


^OOOOOj f-Gl OQQ 


Examplo i 

i) GALL P, . -- 


TI-1 4 


xi) CAIiIi QTC'i,S+a'»U, 11) 

{OOOOO l | o6o 002[ |OOOOO j| Coocxxx: 'ZXCTX 

|xxx::xr [ooooo' ' i -oiooo| 

(a) ?'^rsb \KMxl lo siring cbaTac bcris tic word 

\;hich as used fot? ^i-.^ tli' string in ?v.SS II. 

(b) Scoond aud cVicci noroc lu.cp ^lie ohanactonatiQ 
aiad name oX L'hc 'Oalliu ? \jCv.'iiux ' , 

(o) PouvLh \vo 2 il Lxjc nual'.i oX arguiacnta aX 

UiG CAliL a bomun L, 

(d) 'X}io wo id ohov/n by in bho s bri/ig is 

gho OiCGIj Aiiccumont charao oonsbic Word , Xhe doaails oX 
bliG 3xiCoriiiabLons aburuu in tht. '0^11 /I’guraoiit yi^ar.. ctoixstic 
Word* arc discucood rn bin. Appendix II » 



OOITCLUSIOJJ 
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Like compilei'’ j IITPIj oonpilcr la aii 

ouL-coro corapiler, oxcept LJie Runxiaio routinos, which are 
thci’O, in bho coro, aL bho Lima of execution, Tho HuntunG 
roubiiios approxiiriaboly boko 900 meinoiy locabiona- Besides 
thiQ^ fcho compiicjx* takes tho nclp of some BORfRAl? routines 
(naaioly I/O routines^ ,,,) ^7hich also will occupy some 

nowory space but bho memory ^ ocinipiod by these routines are 
p rof^ramme dope nd ent » Only (.boot rou t in cs ' 'all bv^ in tne 
0 03^0 w})iah n ro ro(|_uirod by tho prof,r.>par:, othci\a:>a rhey 
\/ilL roiiiaLn otibsido* 


Tho compiler output is in illP (.-sccm.ly lonyuoac of 
IRM 704 honcG bho assembler and lus IOCS c'-’cupy rourii 
nboub 6000 memory locnbions. So^ out of total 32768 nicmovy 
locations, approximafcoly 25000 memory locations aro free 
for Lho object programmo . 


Sin CO tho compilor is an out-coro typo, its symbol 
bablo IS so dosignod that ii c macs the compilcj’ oo ociko 
bho whole oi jncra03'‘y. If soj'ic addition is to be done -un 
bho comjJLlur, the of bho symbol table ('diich is at 

prosunt 4000) can always be reduoad with slij^hu change 

iii the system* 


All blio throe soebions, lexical, Pass I d, PasJ II, 
and Runbimo roubinos, have been bested sepax'ately and 
ouocosBf ully . Till tho oiad, the proftramiac , handling Oiai & 
GOTO stQtomonts, in Pass H, could not bo fully tested, 
honoe adl tho three secLiono of tho oompilor wore not 




cojnbinod • 



.^py- airpix I 

IIci'o ail oxr'mplo td tilcexi to illusbruito the P.-SS I 
ouipat ol' the soulco statement (TIPPL). 

PI . .i’HOCEDmyi! Oi'j’liOilS (fli.M) 

EKCI.Jffi (..,B,G,aj,E,r) S’DCSD 
DECaaBS ^(5,0,7) i'Uffil) 

M..A-AfB 

L. .JlK-i-iSy .D) Ii(C.Ga’.2) TKSIT IP(.l .iffi .0)'!'^; ji=0 

Ji'JjGK , . 

ELSE ^(ji.LT.O) SFEf! C=5 
ELSE A=C , . 

C.JjL P2(A) 

DO [=1 , D TOIIEE A=3 , 4 TO 7 BY 3 , . 
AaAx(B+G/D»x5)“G 

Ero/x TUTS SHOVS ETE END OE DO GHOUP »/ , , 
BI..I)ECt1W 

dectj.jvb (•.,n,w,p) ejxed 
A-./.H Ji , . 

EMD B1 , . 

GET EDIT (C,D,E) (E(6), XCi;) ,■ 

P? . .PUOCEDDEB (G)/’- GECOHD BLOOk SEAYPS */ .. 

DECD.JtE G EIXBD , . 

GOTO M, . 

HBTUOT 


EHD P2 
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c:.. pn-7 A'iz F^f) 

J-'^( j) ? 

• 

Pirp ET)TT((''r( ',C) VO M.rD W E 

B’'' 1) BO T-_:, 

“'C E' : 

I'O 1 TO 6 

I'T -5) (r(CT)) 

*• # 


Ei’D r 1 , . 



■B/VTa 



Cpcliaii! PI . .Bi.'CGiJDaRJ!! OP'iUOJrJ ( 

I A J i'J ) y . 

Bijcvip.j (a,j: 


I) prfflB , . 

i)ECl,Ai(.i!) p(5, 

1 — i 

JOSD y . 

$iBruiP 

P1 


P1 

I'^.A 

. JC-JO'' 

.wd 

SKA 


- 


.SlF.r3?4 





p-3 



rZE 

6 



7 

. L0001 

BBS 


00000 •. 

XKia.. 

A cbriiV. wMch looLb liire 



! * IBLirO rdlvniOEl 

17 21 35 



*HTW 

M 4 » AsSiA+B ; « 



M 

OB'. 



.iBT) 

2.1 



1 1 



I. 'X’l-Lii'I IB’(0 .GT .2) a'HE'J ^(A.IJE.C) THGr 



L CLA 

1,1 


jS!UB 

2,1 


i^SX 

HO.BQ.,4 


TZD 

.K0001 


CliA 

3,1 


STB 

=2 


'I'SX 

RO.GT ,,4 



.S0002 


CLA 

1,1 


SUB 

?,1 


PSX 

t?OJ''E .,4 


'JVB 

.20003 



=0 


Jli'O 

1 J 


iLU 

.P0001 

ELSB, . 

JDliSii! 3]? (A. IT .8) 

a'llEE c =5 , . 


BASE A=0 ,, 

EIiSE , . 


,E0003 TEA 

.E0002 BSS 

.E0001 
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OAiil P 2 (A) 



TZB 

.E0004 


Oil. 

=5 


STO 

'^,1 


TRii 

.EOOOl 

0 

0 

0 

m 

J 3 SS 



ODa 

3,1 


uSTO 

1,1 



.EOOOl 

.EOOOl 

a^iu 

.EOOol 

, t'OOO I 

I 3 B,J 



Iooc)ooyI I 000002F 



(oopooTl gmSI 1-0 1 000 

whoro 'XXCa':' IS '■rg'n'cnt 
cf lara G i. c r iG 1 1C . 


DO I = 1 ,n mUW, A==3,4 TO 7 BY B , . 
A=A^(B+C/D'<» 5)-8 

END /K THIS SnO\/S THE E‘D Ol' DO OEOUP ^ , . 


GIu. 

=1 

STO 

6,1 

TSI, 

.D0001 

CM 

4,1 

CTO 

6,1 

OLA 

1,1 

BOB 

=4 

TSX 

EO.Ea .,4 

TZE 

«+2 
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.D0001 


CL.- 

=4 


STO 

6,1 


OL.i 

=7 



D.OOOl +3 


CLA 

2,1 


J-l'O 

D, 0001+4 

.WOOOl 

TOC, 

.D0001 

D.OOOl 

TOX 

.D0PTxT,4 


CLA 

6,1 


STO 

6,1 


PZt) 

0 


PZE 

0 


m2 

E.0001 


'IHLi 

,V/0001 

.DOOOl 

TiAi 



^ Oodiix^ 0 1 nexb fjLaLemenL starts hero i.e, 

Aofj inninonli statement in this case, j 

liDQ 4,1 : 

im 4,1 

SaUi .i'.+O ; 

im .r,+o I 

I/3?I ^ , 1 ! 

I 

I 

STQ .T .+0 

I 

l.T)Q 3,1 ' 
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PXD 

,0 

BVP 

/I. 

LIS 

55 

ALL 

2,1 

LRS 

>3 

m 


LIS 

33 

SUB 


STO 

1,1 


^ Ood1n^5; oJ’ EKD siatomGrt 
TRA. ,D0001 
E,0001 BSS 
B I . .BEGIN , . 

BEOIiAJffl (A,M,N,P) EIXED , . 
Ar=A+B , . 

EMD B1 , . 


00000 

•vrirv ry 
JULA-iiJi. 

„l sbri-Hj; v/lixch IOvItj 1'lIg 




r-~rTEPf0 

3 17 21 -’5 

' 

Bl 

THA 

.10002 

1 

o 

o 

o 

ro 

BSS 


t 


TSL 

B.0002 

1 


OLA 

l.l 

1 


iU)L* 

5,1 

! 

1 

t 


sa?o 

1,1 

t 

t 

r 


00000; 
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OIiA =2 

T3I .RTE3?rr 

i'Ra .B0002 

B.0002 Uliil *- 

OlA =j2(0oC002 000005 

TBL .R®TN 

CIA ^3 

IDQ =1 

a’SI, .HTRJif 

ADD =2 

8';0 5,1 

:'RA B.0002 

.B0002 OSS 

OUT BDrT(0,D,B) (r(C),X(j)) ,, 

'23D STm 

■I' OX TSnlO,,4 

T./O PI105. 

DM nS 

I'SI lAIBOT . 

'j'SD i-iiii,no. 

UTO 3.1 

TSB IDP.10 

STO 4,1 , 

Tdl italO. 

STO 5,1 

TdX RfrNIO.,4 

TEA niB 

nS T SX T OHIO . , 4 

PZE 6 



PZD 

5 




•L'i', 

loms . 



xmE 

63S 


whore ' nS ‘ is 
nama given by 
f oi ipiler , and 

internal 

bhe 

'in'=n+1 

?2..r'i;oa7Di;j'iw(o) 





1)15' II, '! IT iT , 

* 





V { \ 

J’0C03 



i'2 

'll 

\ * 





■^-1,4 




'J 

.T0'j03 


, 

..lOoO^ 






op.H-’OA 


siriii^ !unxlu‘ as i.irntioned 


''3X 


■wci 


pzn 

1 

l-TA 

1,4 

lAL!]' 

1^4 

/iHA 

=jjf000000077777 


=,;2^000060277777 

QUA 

=ij^05 0000000000 

3j;./ 

VI 

CL.. 


STO 



B.0003 


9 * 


GO0?O M 


ooooo'« (Tooqol. 


09 


RB^UEI'T , , 
EITO P2 , . 



00000; 


A.OCOj GL.- 

1 »4 

PIT 

1 ,4 

AJTii 

=^0u0000077777 

-ll'IiL 

=0000 ^ 60277777 

ORj. 

=ji^050000000000 

3LV 

•*•+2 

OLji 

1,1 

GPO 

V-}* 

OLA 

=2 

I’SL 


TRxi 

P2 

B,0003 

** 

PHA 

B .0003 

•P0003 BSS 



G..P0HMAT(3 F(6),X(1)) 


TRA 

hE 

;iXT 


TSX 

I0HJC,,4 

POE 

6 

T3X 

iojix:o,,4 

PZE 

1 

m. 

lOREF . 

BSS 
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?UT BMT(((F(A,B,C) DO A=D TO S BY I) DO B=3 TO E) DO C=I TO 6 

BY 3) (H(G)) 



TSL 

STHDY , 


TSZ 

STHIO.,4 


fpr;o 

FIL06. 


T^r7r^ 

2S 


TSL 

RESET . 


LDQ 

6,1 


ST<4 

5,1 

S0002 

BBS 



LDQ 

=3 


S!1'0 

2,1 


CLA 

5,1 



0,4 


SXD 

.30003,4 

,30004- 

B3S 



LDQ 

4,1 


SLQ 

1,1 


CLA 

5,1 


PA5C 

0,4 


SXD 

.30005,4 


OLA 

6,1 


PAX 

,4- 


SXD 

.10003+2,4 


LDQ 

3,1 


VLM 

=983040, ,15 
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ALS 1 5 

LDQ 2 5 1 

=:1S3A/}0,,15 

1 , i 

Sa}3 . .IDX1 

PAO ' , 2 

CLA 6,1 

Piuc ,4 

SXD .2T0001 ,4 

.S0006 PSS 

PSX .V000l,4 

Oi'3 1 ^ 1 

OI'A] 2 , 1 
OI'IS "5 , 1 

CLA ^29,2 

LSI TTIDLIO, 

M001 TZi Nl,2, 

.T0003 OLA 1,1 

PilX 0,4 

PZl '^'+1 ,4, ^- 

PXA 0,4 

STO 1,1 

. 1 SOOO 5 LZL .30006 , 4 , 

.P0002 OLA 2,1 

PAX 0,4 

PXI *+1,4,1 

PXA 0,4 
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STO 2,1 

*30003 ra ,S0004 , 4 

•TOOOl CLA 3,1 

PAX 0,4 

OZI ^+1,4,3 
PZA 0 , 4 

TZL *30002,4 ,6 

TSX RT1JI0*,4 
IXA . *IPZ2,2 

23 E^iU G 

EJID P1 , . 000^ 

PRa S .JXIT 
ERPRf . .V iR 
.*IDZ2 
EXPER3 .RORTK 
EZiRRl' ,RTR21I 
EXP'ORR ,SSaBR3 
EXPERR *I)OEPH 
. .VAR RSS 223 

.T . R3S 1 

ERD PI 

IBKTRY 

Note : 

.SUBRin This is the runt jme routino for 'm* subscript ed 
variable. It checks v/hethcr ihe subscripts exceeds its 
upper limit or not. If one of the ’m' subscripts 
exceeds its upper limit, it ^ives error in execution time. 
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.PlOHTH - Thxrj IS ths reiu.xunol o]j._rator runtime routine 
\^hjch emends zero in AO x'f i»xio cendioioxi is false other;, xse 
iL puts 777T7777777T in AO. 

,RTKTH - fhis routine uocs 'thu folluMiig; 

i) if G(AC) is groJ^ccr hhan 3? men ib ^ssutuus that 
contents of Aocuraulaior is in the folioMLiig, way: 


Blocl^ No, Type 


He. of variables 
needed 


If Type = 1 - then it loads the current uloch in the 
ac'uivG bloclc stack (ii-GfELS) and moves 
the pcintcr (Indexl) oori espondingly . 

4 - It ca=^umQs "L'hdi curj ^-nc block is a 

parametric procjcluro blooi; or functionul 
procedure bkook, lb cheolcs c.x 'ledos of 
the org-unoiibG ail load^ bho corront 17, .cl. 

11 ) If the G(aG)= 3 ^ aSoUrtcs thac blocl, no. nos 
been sent in MQ. It then takes out jiaitin^ 
in the variable stack (..VciH) for this block anl ^jUus it 
in AO and rotums to the calling point. 

Hi) If bho C(iiG) 2 - ih erases the current 
block entry from ACIBIS (Active Block Stack) . 

.EORTN - a?his routine cheoks whether the control variable 
has reached its limit volue or not. If nob it sends* 1' ixi 
AO otherv;ise puts zero in AC and returns. 

,.rDX2 - This saves the content of indGx2. 
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.'.??E1 TDIX II 

IGJ UjIi gable -. 

Ill PASS I, v/hen ai^ procGduro is called from any 
Dlockj level and tlic symbol table address of the ’’Called 
Procedure" and that of "Calling Block" is kept in a pair 
of v/ords of IGALIi table as shovm bv^lov/: 


5 17 21 35 


1] 

VCLP^ 

1 

VCiB 1 

LCP 

A. 


nhero 

Ii - level of "Galled procedure" . 

1 - Level of "Calling block" , 

VGLP - Symbol table address of "Called prcccJuro" , 

VCLB - Symbol lable address of "Calling block" • 

LCP - Label name of "Called pi^occdure" . 

It IS not always possible to find the "Galled proce- 
dure" in symbol table, la thac case C(first ‘'ord)g^^y is 
filled with zero. When a PHOCELUiffi staboiiient is encounter d 
in PASS I, it IS chocked \/hethGr the name of the ne'w proce- 
dure appears ary where in the ICALL table undefixied. If 
yos then L and VGLP is filled at that time. 

Before filliiig information xa the IC^iLIi table, 
folloY/mg things arc kept in inindJ 
i) Repetition is avoided# 

li) (a) If "called procedure" is already in symbol table 


93 


the following condibion is bo ug satisfied* 

1-1 = 0 or 1 

(h) If ’’collod procedure" has nou come at all bciore 
the appearance of O/Jjl staienenuj the validity of ahovo 
condition is chocked \/hen PilOOlDUHID ebatenent wibh the 
label of ''Called procedure’* appears* 

One hundred locabions are reserved for ICiUjL table 
and the variable "ITOCiUil" is used as poinbcr of TO AT.t. 
table . 

Q.'Jj L x.r/-.uiaent Charactex is bio Word 


M 

IHPIT 

-71'-' 

BIT 

1 

— , 1 


. . ^ ^ 





3 IT 21 35 


v^here IRPN == Internal position nuiubcr of the variable 

or bomporary (//hen the argument is expression), 
BIT Number of bias required in che case of bit 
string and character string, obhcrv/ise 0. 


T =5 0 simple variable 

ss 1 Single subscrip bod 
= 2 Double sub&cnpced 

= 3 Triple subs crip bed 

=: 4 Temporary (in case of expression) 

=5 5 Constant 

= 6 I'unctional cirgui-icnt 

when T=;5 'IRPN' points the number of \/ords following 
the character is tic v/ord which store the cons rant* 


Label variable 


= 1 Simple and subscripted variable 

= ? Bit str3.iig variable 

= 3 Charactez' string variable 

=: 5 External fixed variable 

= 6 Exccrnal bit variable 
= 7 External character variable 

GOTO Tabl e 

GOTO rable is is rhe tabic of unfound labels of 
pr o c e d ur e s « 111 unf o uad labels of any po r t icul "^r p r oc c d ur e 

are kept as an elemuni of the s'cring, nhose PJSiJDER keeps 
the name of the procedure ax'id inf oiua cioia about the next 
link of che s bring. 




PROG 

1 




1 


UPHOCI 



ITLimCI 


2 



L.133EL 






L .S tQ 


! C! » 



4 


9 t 

• P 

- . 


9 • 

• •• 




0 

n 

0 

n+ 1 

PROG 2 

11+2 


imioo 2 



WLTNK2 

n+3 


o * 

• • 



* • 

* t 









1 


m 

PE0C2 

rn+l 

PE0C1 

ni+2 


l:rPR0C3 



¥Lim(3 



n>f3 


« • 



« • 





♦ • 



• 0 





m/iB 


v/’liGx’e IiiPilOC - Table c'doress oj thG liroX clcuent of the 

suriag, 'Iiica s'S'rts jusc after ohis string 
soctioa lb bv"r. 

I'lLIITIC - Ic'blf’ ab Cl re S3 of the lOADhP of tac next link 
of the very PlOOfiDTriE string » 

SA - Symbol t'^blo address f Lhc lo iX 2 l * 

L .S .<3 L&V€L 5&^UCT)Ce- 

Before storm;,, the uxifound label and its chv.ractcri-* 
sties, it IS al\/ays check'd \/hethcr it is already an element 
of the string uf unfound labels of the procedure. 

If EllD stovteraont corre spending tc ary procedure is 
encountered and if cliis procedure is having a sti’in^ jf 
unfouxid. labels, then ic le pex’mnv ntly closed /io„ scoring 
1 and procedure’s label in tiie last t\/o coxisocutivc locoGion 
of the string of tJic GOTO t^iblu and ru-ining procedure is 
rubbed off from IGBLK table. 

If any procedure socrcs before pernanenG 0 * 1.1 of "chc 
last running procedure, then the GOTO tublc string of the 
previous procedure is temporary closed v/ith 0 and 0 in next 
two free locations and then for nev/ striiig is kept 

thereafter , 

As shown in example above*. 

BPR0C1 = Table address of PR0C2 i.e. n+2 . 

NBIRId = ^‘ddress of next link of PilOOl i.e. *h- 2 
BPR0C2 r= Table address of next procGdure(i . 0 . oX 
PR0G1) i.e. m2. 


raiIfK2 « 0 



IGB IiK Sable ; 

TLis IS the pruoedca'G block table used for handlxng 
Clio G-OTO table* Sach urmo PR003Bl)3B sta'CGinent is encountered, 
it IS entered in the IG-BIK tciblo , Each entry in IG-BLK requres 
ouo v/ords of IBM 7044 ^vhicn coisis^s tne 

Procedure name 
"SPfGO 

vvliore *SPTGO’ is tho starting GOTO table 

wlierofrom any extornal label needed for this procedure 
block is put. The first entry in the GOTO table for any 
procedure block is tho procedure name itself and tho 
string of unCound labels, needed by that particular 
procoduro 5 are put thcxuafcer. If there is no global 
label needed by this procedure clock, SPTGO is set to 
zero . 

IS the pointer for nandlmg IG-BLll taole . 

When an BlID statement is e no ount creel the ’HPi3‘ is moved 



APi-’Liron; iii 


ERROR 


LE XICAL EPROJ Tiiso: 

HO~1 Presence ol illogel character in the statement. 

EO-S Bibher integer with more than 11 digits oi** 
binary string of more txian 36 Glome nts or 
character string of more than 35 characters ? 
found in the sLabOinont. 

j.'f0-3 Identifier, with first character as digit, 
encountered . 

RO-4 Identifier of more bnan six characcers or 
wrong logical word, ex'* Iceywords used as 
variable . 

NO-5 Arithmetic expression with unbwlLncod 
parentheses • 

NO-6 Phe first olemoit of the statement is an 
operator, 

NO-7 Moro than one continuation cards, uncountc rod , 

NO-8 Non-binary olomcnt found in tho binary string. 


BIBLIOCrRAPI-iy 
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